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1  ABSTRACT  (UNCLASSIFIED) 

Thennal  characteristics  of  targets  and  backgrounds  determine  iR  detectability  of  the  targets.  Therefore  not 
only  knowledge  of  the  thennal  behaviour  of  targets  is  needed,  but  also  of  background  elements  like  trees  and 
grass.  Long-term  measurements  ate  necessary  to  study  time  variations  of  aj^arent  ten^jeratmes,  covering  all 
weather  conditions.  For  this  reason  a  dual  wave<i^d  scanner  is  developed  for  autonomous  radiation 
measurements  in  the  spectral  regions  3-S  ^^n-and  8-12  (ixfl.  This  report  describes  system  design  and 
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SAMENVATTING  (ONGERUBRICEERD) 

Thermiscbe  eigenschappen  van  doelen  en  achtergronden  bepalen  de  IR  detecteerbaaibeid  van  de  doelen. 
Daarom  is  niet  alleen  kennis  van  bet  tbermisch  gedrag  van  doelen  noodzakelijk,  maar  ook  van  acbtergrond 
eiementen  zoals  bomen  en  gras.  Metingen  over  lange  perioden  zip  nodig  om  veranderingen  in  de  tijd  van 
schijnbare  tenperaturen  te  bestudeien,  onder  alle  weersomstandigbeden.  Qm  die  reden  is  een  dual  wave¬ 
band  scanner  ontwikkeld  voor  autonome  stralingsmetingen  in  de  spectrale  gebieden  3-5  pm  en  8-12  pm.  Dit 
rapport  beschrijft  bet  systeem  ontweip  en  de  tecbnische  mogelijkheden  en  prestaties. 
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1  INTRODUCTION 

Detection  of  targets  is  based  on  observation  of  contrasts  widi  tbe  background,  bi  ttie  infiared 
wave-bands  (IR)  these  are  teo^eiatuie  and  emissivity  contrasts.  They  ate  caused  by  differences  in 
material  and  physical  properties,  like  heat  cqtacity  and  absorptivity.  Military  targets  consist  of 
non-natural  materials.  Very  often  there  are  heat  producing  systems  inside,  which  cause  extra 
warming  up.  This  leads  to  differences  in  thermal  behaviour  and  results  in  increased  tetr^>erature 
contrasts.  Consequently  an  increase  of  the  detection  probability  follows.  Reduction  of  die 
temperature  contrast  between  object  and  background  in  princ^le  can  be  achieved  by  adapting  the 
surface  temperature  or  using  camouflage  (influence  on  apparent  tertqieratare,  cbapux  2.).  The 
materials  must  be  chosen  such  diat  the  contrast  widi  the  background  will  be  minimized.  Ad^iting 
of  the  correct  type  of  camouflage  requires  knowledge  of  the  behaviour  of  the  background.  The 
temperature  behaviour  depends  strongly  on  tte  weather.  To  study  this  bdiavioiir,  a  scanning 
radiometer  was  developed,  to  perform  autonomous  measurements  of  qiparent  temperatures 
according  to  a  preset  time  intervaL  The  name  of  diis  scanner  is  CARABAS,  an  acronym  for 
CAlibrated  RAdiometer  for  BAckground  Scanning.  Togedier  widi  the  registered  meteorological 
parameters  (chapter  6),  the  iqipareot  temperatures  form  a  valuable  database  to  study  time-  and 
weather  dependent  temperature  behaviour  of  background  elements. 
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APPARENT  TEMPERATURE 


The  pnnciple  of  IR  detection  is  based  on  observation  of  radiance  differences.  In  this  cbt^ter  the 
theory  concerning  the  t^tparent  tenq>eratiire  will  be  explained. 

The  spectral  emission  W(X,T)  (monochromatic  emissive  power)  of  an  object  wifh  absolute 
temperature  T  is  given  by  Planck's  formula,  (1). 


Cl 

W(A„T)= - 

{exp(C2AT)-l  I 


(Wm-2fun-')  (1) 


with  Ci=  3.74x10*  W-m-^-pm-* 

and  C2=  1.439xl0-*  m-K  (Xinpm). 

The  radiation  Q  in  the  spectral  waveband  is 


Q  = 


j^W(X,T)dX, 


(Wnr*) 


(2) 


The  radiation  of  an  object,  and  the  environmental  radiation,  are  determined  fay 
equations  1  and  2.  The  total  radiation  of  an  object,  consists  of  an  emissive  part,  E-Qg)^  and  a 
reflective  part  radiatitm,  p.(^,  Le. 

Q«-c.Qrt,  +  p.Qa„  (Wm-i)  (3) 

e  is  die  emisaivity  and  p  the  reflectivity.  The  emissivity  indicates  a  surface  ctqiacity  to  emit 
radiatioa  and  dreads  on  die  surface  properties  (0  £  e  2  1).  If  a  is  die  absorptivity  and  t  die 
transmissivity,  dien 

a  +  p  +  x»l  (.)  (4) 

There  is  no  transmiasion  dirou^  soUd  and  acenntim  to  KirdihoCrs  law  the  emissivity 

is  equal  to  the  absorptivity  at  wavdengdi  X,  so  eq.  4  becomet: 
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p=l-e  (-)  (5) 

In  case  of  a  black  body  e  =  1.  The  total  emittance  and  its  spectral  distribution  only  depends  on  die 
ten^ierature  of  the  black  body. 

From  the  preceding  it  follows  that  detected  radiation  Q^,  can  be  expressed  in  terms  of  a 
temperature  that  may  differ  from  die  actual  surface  temperature  due  to  different  emissivities.  This 
temperature  is  tL:^  apparent  ten^ietature  In  the  spectral  band  Xq,  is  solved  from  equation 
6,  using  eq.  2  and  3: 

T.  |eW()i,T^)  +  pW(X,T^))dX.  (Wm-2)  (6) 

Xq  Xfl 

In  this  equation  is  the  surface  temperature  of  the  object  and  X,  the  transmissivity  of  the 
atmosphere.  W(X^Ta„)  is  the  contribudcm  of  environmental  radiation,  piedammantly  s8y-  and 
scattered  atmospheric  radiation.  Tgp,  is  an  average  "environmental”  temperatnre.  Hiis  is  fw 
example  cloud  base  or  sky  temperature. 

0,0,,  and  consequendy  T^pp,  is  determined  by  die  tenperature  and  Mnissivity  of  die  surface  (eq. 
1  and  3).  ^om  eq.  6  it  follows  that  it  is  possible  to  control  changing  the  emissivi^  and 

consequently  increasing  reflection,  mosdy  of  cold  sky  radiaticm. 

Not  all  parts  of  the  IR  plectrum  are  useful  for  IR  measurements  because  of  atmoqiheric 
attenuation.  Due  to  molecules  like  H2O  and  COj,  IR  radiation  will  be  abaoibed  in  die  atmoqdiere, 
for  example  in  die  S-8  pm  region  predominantly  by  H2O.  The  regions  where  the  atmoqiliere  is 
transparem  (windows)  are  3-S  pm  and  8-12  pm. 

Differentiating  the  Planck  equation  with  reqiect  to  X  and  setting  the  result  equal  to  zero,  Wien's 
displacement  law  is  obtained; 

X„.T-2893  (pm-K)  (7) 

where  X,|„  is  the  wavelengdi  at  maximum  emission,  eiqitessed  in  miaanMen  .  A  plot  of  dus 
relatkm  is  diown  in  figure  2.1.  Widiin  a  natural  scene  most  objects,  e.g.  vegetttioii,  will  have 
lenqieratores  close  to  diat  of  the  ambiem  air  tenyerature,  say  290  K,  vrtndi  will  resuh  in  m 


W(X,T„)dX 
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10  lun,  which  occurs  in  the  centre  of  the  8-12  itm  window.  Therefore  die  atmospheric  window  8- 
12  pm  is  most  suitable  to  measure  radiadon  of  natural  sources. 

The  material  properties  of  an  object,  like  dnsity,  beat  opacity  and  emissivity,  determine  the 
physical  temperature  of  the  surface.  Ev^ioration  at  die  surface  will  influence  die  temperature  as 
well. 
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3  THE  CARABAS  SYSTEM 

The  CARABAS  is  a  calibrated  dual  waveband  radiometer,  suitable  for  long-tom  outdoor 
operation.  In  this  chapter  optics,  scanning  mechanism,  internal  calibraticHi  and  system 
perfonnance  will  be  described. 

3. 1  Optics  and  Detectors 

To  measure  radiation  of  a  single  object  only,  instead  of  an  average  value  over  different  objects,  a 
small  instantaneous  field  of  view  (TPOV)  is  necessary.  On  the  other  hand  a  reasonable  area  must 
be  covered  when  measuring  over  shot  distances.  Therefore  the  IFOV  of  the  CARABAS  is  l°xl° 
using  Cassegrain  optics,  a  combination  of  an  hyperbolic  and  parabolic  mirror.  Figure  3.1  shows 
these  Cassegrain  optics. 


Fig.  3.1  The  Oatsegiain  optics  in  the  CARABAS. 
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The  equations  of  the  hypeibolic  and  parabolic  mirrors  are 
x2  y2 

- =1  (8) 

49  371.25 

respectively 

x= -  (9) 

228 

The  effective  focal  distance  of  this  combination  is  28  mm,  projecting  a  parralel  beam  with  a 
diameter  of  30  mm  on  the  detector. 

The  mirrors  are  made  of  polished  aluminium. 

Two  thermopile  detectors  (Laser-Optronic,  type  SM)  are  used,  since  thermopiles  do  not  need 
cooling  for  optimum  performance.  The  responsivity  of  the  thermopile  detectors  is  wavelengdi 
independent.  By  usk  >  interference  filters  the  received  radiation  is  limited  to  the  windows  3-5  pm 
respectively  8-12  pm. 

The  filter  characteristics  are  shown  in  figure  3.2,  where  transmission  is  plotted  versus  wavelength. 


I 

I 


Bg.3.2  Tnnsmissianvasiis  wavelength  of  the  iixerfeiencefillen  used  in  die  CARABAS. 
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3.2  Calibration  procedure  and  scanning  mechanism 

one  of  the  most  important  features  of  the  CARABAS  is  the  internal  calibration,  before  die  actual 
measurement.  This  reduces  the  influence  of  electronic  drift  on  the  results.  Therefore  iwt  only  the 
radiation  of  the  environmental  object  is  measured,  but  also  of  three  internal  calibration  sources. 
These  blackbody  sources  have  ten^eratures  of  0,  +3  en  +9  ‘C  relative  to  die  scanner  housing 
tenqierature.  They  are  mounted  close  to  the  detectors,  at  the  inside  of  the  scanner  housing  see  fig. 
3.3.  The  temperature  of  the  scanner  housing  will  be  close  to  ambient  air  temperature. 

The  temperatures  of  the  sources  are  read  by  Pt-100  resistors  and  continuously  adjusted.  By  fitting 
a  least  square  curve,  using  the  values  of  the  three  calibration  sources  (volts,  V^fi),  versus 
temperatures,  Tc(i),  i=l,2,3),  the  ipparent  temperature  of  the  unknown  element  T^*  can  be 
obtained,  using: 


Qc(i)  = 


TxW[X,Te(i)]dX  =  aV,(i)  +  b 


(W.m-2) 


(10) 


where  0^(0  is  the  calibrated  radiation  for  each  blackbody  and  T^  the  transmission  of  the  filters. 
T,pp'  can  be  solved  from 


a  V,  +  b  = 


TxW(X,T^*)(a 


(W.m'2) 


(11) 


where  Vj  is  the  measured  detector  voltage. 

CARABAS  measurements  are  carried  out  over  short  ranges  (up  to  100  meters)  and  therefore  the 
transmissivity  t  of  the  atmosphere  is  assumed  to  be  1 .  Per  position  the  sequence  of  measurements 
of  both  detectors,  as  shown  in  fig.  3.3,  are  identicaL 
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Fig.  3.3  Sequence  of  measurements  with  Maltese  cross  of  the  CARAB  AS. 


By  means  of  a  double  sided  mirror  both  detectors  make  simultaneous  measurements.  This  mirror 
is  mounted  in  a  rotating  drum,  at  a  45®  angle  to  the  optical  axis.  Four  discrete  steps  of  90°  rotation 
around  the  drum  axis  are  performed  per  complete  cycle  (see  figure  3.3  and  3.4.).  The  mirror 
remains  in  each  position  for  1  second.  To  increase  accuracy  the  detector  signal  is  integrated  over 
0.75  seconds.  In  this  way  both  detectors  measure  the  environmental  object  and  the  three 
calibration  sources  within  4  seconds,  aligned  c^tically  to  measure  exactly  the  same  areas. 

To  obtain  four  exact  discrete  stqts  a  Maltese  cross  is  used  (see  fig.  3.3),  driven  1^  a  DC  motor. 
Photo  3.5  shows  the  CARABAS  interior. 


Optical  path  in  the  CARABAS. 


PImk>3J  Ihe  CARABAS  hiMtte. 
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3.3  Scanner  housing 

To  avoid  rain,  dirt  or  «mail  insects  from  entering  the  CARABAS,  a  shutter  closes  automatically 
the  entrance  pupil  when  not  operating.  A  tube  is  placed  in  front  of  die  entrance  to  avoid  rain 
coming  in  during  measurements.  Protection  against  solar  heating  is  achieved  by  mounting 
reflecting  shields  at  all  sides  of  the  scaimer  bousing.  All  outer  parts  of  die  scanner  are  painted 
white.  On  top  of  the  sensor  housing  a  CCD  camera  can  be  mounted  to  observe  the  posidons,  for 
example  to  record  or  define  locations. 

3.4  Control  system 


Ihe  CARABAS  system  is  scanning  autonomous  according  to  a  preset  timetable  and  position 
sequence.  All  movements  are  remotely  controlled  by  a  portable  IBM  Personal  Computer.  This  PC 
is  provided  with  a  12  bits,  100  kHz  LABMASTER  data  acquisition  system  (Scientific  Solutions 
Inc.)  and  a  30  Mb  storage  capacity.  The  measured  values  of  radiation  are  converted  to  apparent 
temperatures  (degrees  Celcius)  and  stored  together  with  the  time  of  measutement.  One  day  with 
30  positions  and  a  scan  interval  of  IS  minutes  lesults  in  a  file  of  90  kb. 

The  LABMASTER  is  connected  to  a  separate  control  unit  From  this  unit  die  sensor  can  be 
directed  by  joy-stick  as  well. 

The  (single)  cable  between  the  control  unit  and  the  CARABAS  is  10  meter  long.  The  control  unit 
and  the  PC  are  placed  in  an  air-conditioned  cabin. 

In  case  of  a  power  failure  a  no-break  power  back-up  system  (Im^’nclec  MS  600)  is  activated.  It 
provides  the  CARABAS  system  for  about  10  minutes  with  power  in  order  to  stop  measuremmts 
coRectly,  return  scanner  bead  to  first  position  and  close  files  and  to  restart  autcnnatically  after 
power  has  returned. 


3.S  System  performance 


The  Noise  Equivalent  Ten^ierature  Difference  (NETD)  of  the  CARABAS  is  <  0.04  "C  at  20  °C 
for  bofli  channels.  The  temperature  accuracy  in  3-5  pm  is  <  0.2  and  in  8-12  pm  <0.1  °C. 

The  CARABAS  can  be  rotated  over  SdO**  azimntfa  and  -90*’  to  ■*■90”  in  elevation.  The  maxitmim 
accuracy  of  positioning  is  ±0.09  ”  in  botii  elevatkm  and  azimutii.  Per  practical  reasons  die  stqi 
size  of  the  sensor  head  can  be  set  to  a  mult^le  of  0.09“  to  reduce  operation  time.  The 
CARABAS  is  presently  set  to  ±0.9 (stqi  size  10),  scamting  30  positions  in  dioiit  S 
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4  CARABAS  CONTROL 


Tbiee  progranmies  aie  developed  in  BASIC  language  to  operate  die  CARABAS  system.  The 
program  "DEFPOINT"  is  used  to  define  measurement  positions,  "CARABAS"  perframs  die 
actual  measurements  and  data  storage  and  "EVAL”  gives  a  first  analysis  of  measurenieats  to 
check  the  CARABAS  operation. 

4. 1  Define  positions 

The  programming  of  the  measurement  positions  is  done  with  a  program  called  "DEFPOINT". 
Using  a  joy-stick  or  keyboard,  the  CARABAS  can  be  positioned.  The  X  and  Y  coordinates 
(azimuth  and  elevation)  will  be  fixed  and  read  by  push  button  control.  A  CCD  camera  can  be 
mounted  on  top  of  the  CARABAS  scanner  to  record  the  selected  positions.  When  all 
measurement  points  are  defined,  die  scanning  sequence  can  be  optimized  to  the 

measurement  cycle  time.  The  sequence  of  positions  is  stored  in  a  file.  This  position  file  can  be 
adjusted  easily  by  inserting  or  deleting  measurement  locations. 

A  position  file  name  has  the  format  "mmmddyyp"  (like  IAN0191P,  meaning  the  creation  date, 
January  01, 1991,  with  addition  P  for  position  file)  and  contains  the  following  infotmatiini; 


date 


ber  of  positions 

don  information  (p  blocks) 

(P) 

(mm-dd-yy) 

object  description 

(30  characters) 

status  qiecification 

(30  characters) 

x-coordinate 

- 

y-ooordinate 

- 

elevation  angle 

(degrees) 

azitnudi  angle 

(degrees) 

height 

(cm) 

distance 

(m) 

emisrivily 

(-) 

background  descrytion 

(30diancten) 

status  specification 

(30  characters) 

positiaacode 

(11  characters) 

endblodcQi) 


I 
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The  program  generates  a  position  code  for  each  position,  giving  conqtlete  and  imifoim 
descriptions  of  die  background  elements.  These  codes  are  generated  from  user  input.  Th^  contain 
information  about  object  description,  elevation,  azimndi,  physical  condition  and  qipearance. 

A  position  code  consists  of  11  di^ts.  If  "aabcdefghhi"  represents  the  code,  dien 


aa  =  object  description 

b  =  status  specification  of  the  object 

c  =  elevation  angle 

d  =  azimuth  angle 

e  s  height 

f  =  distance 

g  =  emissivity 

hh  =  background  description 

i  =  status  specification  of  the  background 


Table  4. 1  Descriptions  and  specificatkos  of  objects. 

01 

AGRICULTURE 

1 

GREEN 

02 

CRASS 

2 

FALUNC 

03 

BUSHES4X>NIFER0US 

3 

BARE 

04 

BUSHES-DECIDUOUS 

4 

BUDS 

05 

TREES-CONIFFEROUS 

5 

(HIOWINO-NORMAL 

07 

TREES-DEODUOUS 

6 

FRESH-CUT 

* 

7 

CRUSHED 

11 

CONCRETE 

8 

COVERED  WITH  MUD 

12 

ASPHALT 

9 

COVERED  WITH  SNOW 

13 

GRAVEL 

0 

NO  SUB-ITTLE 

14 

SAND-BARE 

13 

SOIL-BARE 

16 

MUD 

21 

SLOPE-UP-HILL 

22 

SLOPE-DOWN-HILL 

p 

NATURAL-WASTE 

31 

CAMOUFLAGE-NET 

32 

CAMOUFLAGE-SCREEN 

33 

CAMOUFLAGE-ADAFTIVB 

41 

WATER 

42 

SNOW 

43 

MUDDY-SNOW 

44 

SKY 

45 

HORIZON 

91 

BLACKBODY-t-SDEG 

92 

BLACKBODY  + 13  DBG 

The  artisavity  is  measured  with  an  in&ared  reflectometer  (ref  1).  Table  4.1  Aowt  a  Bat  of 
existing  deao^itioas  sod  stains  qwcifications  for  objects  and  their  badcgnmuL  The 
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coiiesp<niding  numbers  can  be  found  in  die  position  code  (digits  aa  and  bh).  The  status 
specification  gives  additional  infonnation,  most  tenyorary,  like  covemd  by  snow  at  mud  (digits  b 
and  i).  The  X-  and  Y  coordinates  of  die  scanner  are  only  of  inqiortance  during  the  measurements 
and  will  therefore  not  be  included  in  die  position  code.  The  orientation  of  objects  is  defined  by 
their  azimudi  and  elevation  angles,  as  shown  in  figure  4.1. 

Appendix  A  shows  the  listing  of  the  programme  ”DEFPOINT'  and  in  .^ipendix  B  an  example  is 
given  of  a  position  file. 


w 


Fig- 4.1  Deflnitioa  of  abject  ofientadoas  in  positioD  file. 


The  poailioa  file  is  i^daled  once  a  week  if  any  changes  have  occmred. 

To  check  die  poaitioiiing  accuracy  a  testxnn  can  be  pertanned.  using  die  CCD  camera,  in  which 
die  consecutive  positioos  are  diqdayed  for  uppnvaL  ff  necesavy  their  deact^itions  can  be 
adjusted. 
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4.2  System  operation 

Tlie  software  controb  the  positiooing  and  measuring  sequence,  and  abo  handles  error  recovery. 
The  program  to  do  dus  b  called  "CARABAS". 

The  program  b  iniHaiiTivl,  defining  the  following  parameters; 

1.  Start  date 

2.  Stop  date 

3.  Start  time 

4.  Stop  tiffie 

5.  Measurement  sequence  time  interval 

6.  Name  of  position  file 

7.  Name  of  data  file 

Before  starting  the  meastnement  cycle,  an  initialization  file  b  created,  containing  these 
parameters,  in  case  an  automatic  restart  after  power  failure  b  required.  A  listing  of  die  program 
"CARABAS"  b  given  at  Appendix  C. 

4.2.1  Data  collection 

The  program  "CARABAS”  performs  the  complete  measurement  cycle.  It  starts  and  stops 
measurements  according  to  die  preset  timing  parameters.  The  posidra  information  b  read  ftom 
the  position  file  and  used  to  direct  the  sensor  to  each  location.  The  coordinates  of  positions  are 
expressed  in  units  of  0.09*.  The  [sogram  feedback  recognizes  when  die  sensw  b  in  coaect 
position.  The  actual  measurements  are  executed  by  control  of  die  position  of  die  internal  minor. 
After  scanning  all  positions,  the  sensor  pupil  b  closed  by  a  shutter  and  the  sensor  relnnis  to  die 
first  position.  At  thb  time  dau  is  available  as  detector  voltages  and  Pt-100  voltages  per  channel 
and  per  position. 

Using  equations  10  and  11,  die  curve  fit  parameters  a  and  b  are  detennined  and  die  unknown 
apparent  temperature  b  calculated.  Thb  b  repealed  for  each  position.  The  caknlaied  teapentims 
are  stored  on  dbk.  The  CARABAS  file  name  has  die  fonnat  "mmmddyyC  (Uke  JAN0i91C. 
meaning  die  creation  date,  Januaiy  01. 1991,  widi  addition  C  for  £ARABAS  file)  and  every  di^  a 
new  file  with  a  correspondiiig  tunie  b  creeled. 
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Data  is  stored  per  scan  interval  (IS  minutes  default)  in  the  following  foimat: 


position  file  name 

(JAN0191P) 

number  of  positions 

(P) 

date 

(mm-dd-yy) 

carabas  position  data  (p  blocks) 

time 

(hh:mm:ss) 

Tq,pin3-5itmband 

(‘Q 

in  8-12  pm  band 

(“Q 

end  block  (p) 


The  precise  observation  time  is  of  significance  as  CARABAS  data  will  be  correlated  to  weatiier 
data.  Appendix  D  shows  an  exattqrle  of  a  set  of  results. 

4.2.2  Error  recovery  and  control 

Internal  or  external  errors  rtri^t  occur  during  running  of  the  program.  To  minitnise  dte  loss  of 
data  as  a  result  of  this  errors,  the  program  checks  for  power  failme,  I/O-  and  hardware  (sensor) 
errors.  Also  the  sensor  positioning  is  checked  continuously  during  a  measurement  t^cle. 
Detection  and  if  possible  recovery  irudces  normal  execution  of  the  program  possible  after  an  enor 
has  occurred. 

Two  external  blackbodies  with  a  constant  lenqrerature  difference  ate  used  to  control  operatxm. 
This  is  done  by  the  user.  As  an  option  diis  control  can  be  inserted  in  the  program  to  check  the 
quality  of  the  measurements  automatically. 

Tetttpetatutes  of  bodi  spectral  bands  of  up  to  four  positions  and  to  20  previous  scans  can  be 
di^layed  during  tunning  of  die  program. 

4.3  Evalnatioa 

The  first  analysis  of  measured  qiparent  temperaluies  can  be  peffocmed  by  a  program  called 
"EVAL”.  The  program  reads  CARABAS  data.  Average  and  standard  deviMkm  of  selected  objects 
are  calculated  and  temperatures  vmns  time  or  fiequency  of  occurrence  are  printed  or  pkNted. 
This  program  is  meant  for  quick  kiok.  A  second  program,  called  ’CLEANCAR",  is  avaiUbie  to 
edit  CARABAS  data  in  case  of  individnal  data  distortions. 
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5  MEASUREMENT  FACIUTIES 

At  the  aiibase  Gilze-Rijen  in  die  Netherlands  a  suitable  test  site  for  badcgrouad  measurements 
was  found  (photo  5.1).  The  CARABAS  is  mounted  on  a  platform  at  7  meten  above  ground  level, 
placed  beside  an  air-conditioned  cabin  with  the  control  units.  Besides  environmental  elements, 
several  camouflage  materials  ate  measmed  as  welL  The  location  at  die  aiibase  is  wide,  quiet  and 
closed  to  public.  It  is  dierefore  suitable  to  test  new  developed  materials  as  well. 


PIkNoS.I  Ten  site  at  Airbase  Oilze4tijea 


The  CARABAS  is  placed  in  the  field  in  November  1989.  For  over  a  year  it  has  remained  diere 
widwut  service.  Only  once  a  small  bird  entered  the  sensor  head  and  was  diopped  by  die  rotating 

itmin 

To  check  if  diete  ate  any  dianges  of  die  measoted  background  elements,  die  site  is  visited  on  a 
’•**kly  basis,  also  for  checkiiig  system  performance  and  general  makitenance  Le.  fWttfctg  of  dK 
optical  parts.  Doing  dieae  visits  die  position  file  is  iqidated  to  die  actnd  «{»«««»«■«  Hie 
cumnt  set-iq>  will  be  maintained  until  April  1991.  By  dien  it  is  expected  diat  all  meieanilogical 
oonditions  ate  covered. 
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6  METEOROLOGICAL  DATA 

A  weather  stadon,  located  close  to  the  CARABAS,  collects  the  5  minutes  average  of  eight 
meteorological  observadoos.  The  quantities  measured  are:  air  temperature,  leladve  humidity,  air 
pressure  (all  1.5  m  above  ground  level),  global  irradiance  (0.3  -  3  itm.),  "global"  IR  itradiance 
(pyrgeometer,  3-50  pm.),  wind  speed  and  ditecdon  (at  10  m  above  pound  level)  and 
precipitadon  (ref  2).  The  meteorological  data  is  stared  in  a  separate  file,  named  "mmmddyyM" 
(like  JAN0191M,  meaning  the  creation  date,  January  01,  1991,  with  addidon  M  for  hlcteo  file), 
per  period  of  5  minutes.  This  file  contains  the  following  informadon: 


date  (mm-dd-yy) 

time  (hhimmtss) 

number  of  scans  in  last  period  (n) 

meteo  data  block  (8  parameters) 

meteo  parameter  i  (...) 

number  of  valid  scans  of  parameter  i 
end  block  (8) 


An  exanq>le  of  meteo  results  is  given  in  Appendix  E. 

A  desciipdon  of  the  weather  stadon  can  be  found  in  report  FEL-91-B202,  [ref.  2]. 
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7  CONCXUSIONS 

The  CARABAS  system  can  give  an  impression  of  the  temporal  IR  behaviour  of  objects  in  two 
spectral  bands,  3-S  (un  and  8-12  pm.  The  measurements  of  apparent  temperatures  of  any  object 
can  be  carried  out  autonomously  over  a  period  of  at  least  a  year  with  the  CARABAS  system.  The 
objects  can  be  backgrounds  as  well  as  targets.  Also  camouflage  efficiency  can  be  analysed.  There 
is  data  available  now  of  about  24  different  objects,  from  the  period  tqnil  1990  to  aptil  1991.  The 
temperature  accuracy  is  better  then  0.2  “C  and  the  maximum  position  accuracy  0.09°,  unchanged 
after  two  years  of  performance  in  the  field.  With  the  IFOV  of  1°  the  size  of  measured  object 
surfaces  can  be  varied  by  changing  the  distance. 
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8  RECOMMENDATIONS 

One  of  the  parameters  of  in^portancc  is  the  solar  ^soiptivity.  No  equipment  is  available  yet  to 
measure  this  parameter  easily.  A  pyiheliometer  combined  with  measurements  will  give  useful 
suplementary  information.  Extension  with  a  visual  camera  on  tcp  of  die  CARABAS  scanner 
offers  the  possibility  to  combine  IR  data  with  visual  data.  The  data  acquisition  (of  CARABAS  as 
well  as  meteorological  data)  should  be  limited  to  only  one  PC  and  offering  the  possibility  of  on¬ 
line  processing. 

The  CARABAS  system  is  also  useful  in  industrial  environments  to  perform  ronotely  controlled 
temperature  measurements  in  bazerdous  areas  or  complex  installations  that  cannot  be  reached 
easily. 
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DEFPOINT  software  listing 
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X(j),y(j)  ; 

XO  ,yo  : 


•DAC  -  0 
■DAC  -  1  : 

const  MAXDIM  >30 
dim  X  (MAXDIM)  .Y  (MAXDIM)  ,POST$  (MAXDIM)  ,ELPOST$  (MAXDIM) 
dim  HX  (MAXDIM)  ,HY  (MAXDIM), H$  (MAXDIM)  ,HL$  (MAXDIM) 
dim  TETA  (MAXDIM)  ,AZIM  (MAXDIM)  ,H  (MAXDIM), RAN  (MAXDIM), EPS  (MAXDIM) 
dim  TETAC (MAXDIM)  ,  AZIMC (MAXDIM)  ,HC (MAXDIM)  .RANG (MAXDIM)  , EPSC (MAXDIM) 
dim  SCREENS  (MAXDIM)  ,ELSCR$  (MAXDIM) ,  POSCODES  (MAXDIM) 
dim  HS$  (MAXDIM)  ,HE$  (MAXDIM)  ,HP$  (MAXDIM) 
dim  INFOS  (MAXDIM) 
dim  M0NS(12) 

MONS  (I)  -  "JAN" 

MONS  (3)  •  "FEB* 

MONS  (3)  «  "MAR" 

MONS  (4)  -  "APR" 

MONS  (5)  -  "MAY" 

MONS  (6)  -  "JUN" 

MONS  (7)  -  "JUL* 

MONS  (8)  -  "AUO" 

MONS  (9)  -  "SEP" 

MONS  (10)-  "OCT" 

MONS  (11)-  "NOV" 

MONS  (12)-  "DEC" 

def  fn  DAGS(DATS)  -  MIDS  (DATS, 4 , 3)+MONS (VAL(I,EFTS (DATS,  2) )  ) +RIGHTS (DATS, 5) 
def  FNNUNS(X) 

XS  -  STRS  (X) 

LENGTH  -  LEN  (XS) 

if  LEFTS  (XS,1)  -  or  LEFTS  (XS,1)  -  "  "  then 
LENGTH  -  LENGTH  -  1 
end  if 

FNNUMS  -  RIGHTS  (XS, LENGTH) 


end  def 

dim  CODES (30) 

CODES 

(1) 

"01 

AGRICULTURE 

ss 

CODES 

(2) 

"02 

GRASS 

M 

CODES 

(3) 

"03 

BUSHES-CONIFEROUS 

IS 

CODES 

(4) 

"04 

BUSHES-DECIDUOUS 

St 

CODES 

(5) 

"05 

TREES-CONIFEROUS 

SS 

CODES 

(6) 

"06 

TREES-DECIDUOUS 

SI 

CODES 

(7) 

ItM 

<0* 

TYPE:  VEGETATION 

CODES 

(8) 

"11 

CONCRETE 

SI 

CODES 

(9) 

■12 

ASPHALT 

IS 

CODES 

(10) 

•13 

GRAVEL 

IS 

CODES 

(11) 

"14 

SAND-BARE 

It 

CODES 

(12) 

■15 

SOIL-BARE 

IS 

CODES 

(13) 

■16 

MUD 

SI 

CODES 

(18) 

mm 

*1* 

TYPE:  UNSTRUCTURED 

CODES 

(15) 

"21 

SLOPE-UP-HILL 

IS 

CODES 

(1*) 

■22 

SLOPE-DOHN-HILL 

m 

PROGRAMME  NAME  :  DEFPOINT.BAS 

THIS  PROGRAMME  DEFINES  THE  COORDINATES  OF  THE 
MEASUREMENT  POINTS,  AS  THEY  ARE  SCANNED  BY  THE 
RADIOMETER  "CARABAS" . 

THE  TABLE,  CONTAINING  THESE  COORDINATES  IS  WRITTEN 
TO  AN  INTERACTIVELY  GIVEN  FILE  AND  STORED  ON  DISK. 

PARAMETERS  USED  IN  THIS  PROGRAMME  ARE: 

COORDINATES  OF  MEASUREMENT  POINT  J 
COORDINATES  OF  THE  ORIGIN 

A/D  CONVERTER  CHANNELS  "DAC": 

AZIMUTH  MOTOR  I.E.  X-COORDINATE 
ELEVATION  MOTOR  I.E.  Y-COORDINATE 


TNOrapoft 


Appendix  A 


A3 


CODES  (17)  -  "23 
CODES  (18)  -  "• 

NATURAL-WASTE  > 

•2» 

TYPE :  STRUCTURED 

CODES  (19)  -  "31 

CAMOUFLAGE-NET  " 

CODES  (20)  -  "32 

CAMOUFLAGE-SCREEN  > 

CODES  (21)  -  "33 
CODES  (22)  -  ■« 

CAMOUFLAGE-ADAPTIVE” 

•3" 

TY  PE :  CAMOUFLAGE 

CODES  (23)  -  "41 

WATER  • 

CODES  (24)  -  "42 

SNOW  • 

CODES  (25)  -  "43 

MUDOY-SNOW  « 

COOES  (26)  -  >44 

SKY  « 

COOES  (27)  -  "45 
CODES  (28)  -  "" 

HORIZON  " 

•4" 

TYPE :  NATUR-ELDtENTS 

CODES  (29)  -  >91 

BLACKBODY  *  3  DEG" 

CODES  (30)  -  >92 
din  ELCODES(IO) 

BLACKBODY  +13  DEG" 

ELCODES  (1)  •  >1 

GREEN  • 

ELCODES  (2)  -  >2 

FALLING  • 

ELCODES  (3)  "3 

BARE  • 

ELCODES  (4)  -  >4 

BUDS  > 

ELCODES  (S)  -  "5 

GROWING-NORMAL  " 

ELCODES  (6)  «  >6 

FRESH-CUT  ” 

ELCODES  (7)  -  "7 

CRUSHED  " 

ELCODES  (8)  -  >8 

COVERED  WITH  MUD  " 

ELCODES  (9)  -  >9 

COVERED  WITH  SNOW  " 

ELCODES  (10)-  >0 

NO  SUB-TITLE  " 

1 

on  key  (1)  gosub 

RETURNS  PROGRAMME  TO 

THE 

MAIN  MENU  AT  ALL  TIME 

1 

key  (1)  on 

default  settings 


1 

2 


NUMBER  -  0 
XO  «  1967 

yO  -  -350 


key  off 

INSERT-  0 

XSTOP  -  0 

ySTOP  -  0 

XYSTOP-  0 

MULT  -  10 

for  J  -  1  to  MAXDIM 

POSTS  (J)  -  "NOT  DEFINED" 

POSCODE$(J)  -  "00000000000" 


next 


PORTS 

-  1 

gosub 

els 

54 

color 

0,7 

color 

7,0 

color 

0,7 

color 

7,0 

color 

0,7 

color 

7,0 

color 

0,7 

color 

7,0 

color 

0,7 

color 

7,0 

color 

0,7 

color 

7,0 

color 

0,7 

color 

7,0 

!  print  ■ 
:  print 
:  print  " 
:  print  " 
:  print  " 
:  print  " 
!  print  • 
:  print  " 
:  print  " 
:  print  " 
!  print  " 
;  print  " 
:  print  " 
:  print  " 


MAIN  MENU 


MAKE  A  CHOICE  FROM  THE  MAIN  MENU  ■ 


1 

2 

3 

4 

5 

6 


$ 

DEFINE  MEASURDIENT  POINTS  BY  USE  OF  THE  RQIOTE  JOYSTI 

DEFINE  MEASURStENT  POINTS  BY  USE  OF  THE  KEYBORD  CURSO 
"S 

INSERT  A  MEASUREMENT  POINT"  :  print 


DELETE  A  MEASUREMENT  POINT"  :  print 
OPTIMISATION  OF  THE  SCAN  SEQUENCE"  :  print 
DISPLAY/DESCRIBB  THE  MEASUREMENT  POINTS"  :  print 
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color  0,7 
color  7,0 
color  0,7 
color  7,0 
color  0,7 
color  7,0 
color  0,7 
color  7,0 
color  0,7 
color  7,0 
color  23,0 
color  7,0 
A$  -  INKEVS 
if  AS  -  "1" 
gosub  4 


print  " 
print  « 
print  * 
print  " 
print  • 
print  ■ 
print  " 
print  • 
print  • 
print  ■ 
:  print 
!  print 

then 


CHECK  COORDINATES  BY  USE  OF  THE  JOYSTICK"  :  print 

M  e 

SAVE  THE  TABLE  OF  COORDINATES"  :  print 

M  • 

LOAD  THE  TABLE  OF  COORDINATES"  :  print 

I  M  • 

PHIFORM  A  TESTRUN"  i  print 

t  **  * 

EXIT  ;  NOTE  MENU  "; 


goto 

1 

eleeif 

A$ 

ii2<* 

then 

goaub  8 

goto 

1 

eleeif 

AS 

M3fl 

then 

goto 

19 

eleeif 

AS 

M41S 

then 

goto 

25 

eleeif 

AS 

then 

goto 

28 

eleeif 

AS 

then 

goto 

32 

eleeif 

AS 

IS^IS 

then 

goto 

36 

eleeif 

AS 

M3H 

then 

goto 

38 

eleeif 

AS 

than 

goto 

42 

eleeif 

AS 

then 

gosub  43 
goto  1 

eleeif  AS  -  *«"  or  AS  •  "E"  then 
cle 

print  "END  OF  PROGRAMME" 
end 

elee 

goto  3 
end  if 


DEFINE  MEASUREMENT  POINTS  BY  USE  OF  THE  REMOTE  JOYSTICK 
USE  THE  FUNCTION  KEY  FI  TO  RETURN  TO  THE  MAIN  MENU 


4 


CHECK  IF  THERE  ARE  ALREADY  MEASUREMENT  POINTS  DEFINED 


if  NUMBER  •  0 
cle 

color  0,7 
locate  5,30  : 
locate  6,30  : 
locate  7,30  : 
locate  8,30  : 
locate  9,20  : 
locate  13,30: 
locate  15,30: 


then  5 


print  ■ 
print  " 
print  ■ 
print  “ 
print  ■ 
print  •  1 
print  -  2 


A  COORDINATE 


color  7,0 
color  7,0 


V$  -  "■ 

While  VS  <>  "1"  end  VS  <> 
VS  e  IKKEYS 
wend 


if  VS  “  "2"  then  1 

NtnOER  -  0 


TABLE  IS  IN  MEMORY  " 

« 

« 

:  print  ■  OVERWRITE"  :  color  0,7 
:  print  "  RETURN  TO  MAIM  MENU" 
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5  cls 
IND  -  0 
color  0,7 

locate  1,1  :  print  * 

locate  2,1  :  print  ■  DEFINE  MEASUREMENT  POINT  COORDINAT 

locate  3,1  :  print  ** 

6  locate  5,18:  print  ■  * 

locate  6,18:  print  >  USE  THE  REMOTE  CONTROL  ■ 

locate  7,18:  print  *  ■ 

locate  25,1:  print  ■  USE  FUNCTION  KEY  FI  TO  RETURN  TO  THE  MAIN  MENU  AFTER  Y 
color  7,0 

locate  9,18:  print  "POSITION"  tab  (40)  "X"  tab  (50)  "Y"  ; 

Icay  (1)  on 

•  CHECK  IF  POSITION  IS  ACCEPTED  AS  A  MEASUREMENT  POINT 

•  AND  DISPLAY  MOMENTARILY  COORDINATES 

7  IRC  -  inp  (1822)  and  1 
do  while  IRC  -  1 

IRC  -  inp  (1822)  and  1 

XYSTOP  »  0 

DAC  -  0 

9oeub  47 

VWX  -  VOLT 

DAC  •  1 

gosub  47 

VMY  -  VOLT 

locate  10-flND,21  :  print  NlDlBER  tab  (38)  ;  VMX  tab  (48)  ;  VMY  ; 
loop 

I 

•  •  CHECK  IF  POSITION  IS  ACCEPTED  AS  A  MEASUREMENT  POINT 

wait  1822,1,0 
DAYS  -  DATES 

'  READ  BACK  THE  SENSOR  POSITION 

DAC  -  0 

gosub  47 

VX  •  VOLT 

DAC  «  1 

gosub  47 

VY  -  VOLT 

•  OUTPUT  THIS  POSITION  TO  CHECK  CORRECTNESS 

DAC  >  0 

gosub  48 
DAC  -  1 
gosub  48 

if  INSERT  •  1  then  return 

'  STORE  THIS  POSITION 

NUMBER  >  HUMBER  +  1 
X  (NUMBER)  ••  VX 
Y  (NUMBER)  •  VY 
IND  •  IND  *  1 

locate  94IM0,21  :  print  NUMBER  tab  (38)  ;  VX  tab  (48)  ;  VY 

if  NUMBER  >  MAXDIM  then  return  59 

REST  >  NUMBER  MOD  13 

If  REST  >  0  then  5 

goto  7 

return 

•  DEFINE  MEASUREMENT  POINT  COORDINATES  THROOCHI 

■  KEYBORD  CURSOR  ONtTROL 

8  Roy  (1)  on 
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■  CHECK  IF  THERE  ARE  ALREADY  MEASUREMENT  POINTS  DEFINED 
els 

it  NUMBER  -  0  then  9 
color  0,7 

locate  5,20  :  print  "  ■' 

locate  6,20  :  print  ■*  ■■ 

locate  7,20  :  print  ■■  A  COORDINATE  TABLE  IS  IN  MEMORY  •• 

locate  8,20  :  print  ■  ■ 

locate  9,20  :  print  ■■  ■■ 

locate  13,20:  print  ■■  1  :  color  7,0  :  print  ■■  OVERNRITE"  :  color  0,7 

locate  15,20:  print  ”  2  ■;  :  color  7.0  ;  print  ■  RETURN  TO  MAIN  MENU* 

V$  a 

While  V$  <>  "I*  and  v$  <>  "2" 

V$  -  IHKEY$ 
wend 

if  V$  -  "2"  then  1 
NUMBER  -  0 

■  CHECK  IF  THE  REMOTE  CONTROL  IS  DISCONNECTED. 

9  goaub  55 

10  PORTS  -  3 

goaub  54  'UNLOCK  SERVO  SYSTEM 

cla 

color  0,7 

locate  1,1  :  print  ■ 

locate  2,1  :  print  «  DEFINE  MEASUREMENT  COORDINATES  THROUGH  THE  KEYB 

locate  3,1  :  print  " 

locate  5,1  :  print  "USE  THE  FOLLOHIMG  KEYS* 

color  7,0 

locate  7,1  :  print  CHR$(24)  ;  CHB$(35}  ;  CHR$(3e>  ;  CHR$(27) 

locate  7,5  :  print  *:  CURSOR  CONTROLS  FOR  POSITIONING  THE  SENSOR  HEAD* 

color  0,7 

locate  9,1  :  print  *  a  * 

color  7,0 

locate  9,5  :  print  *:  TO  ACCEPT  AND  STORE  A  MEASUREMENT  POINT* 

color  0,7 

locate  11,1  :  print  *  b  * 
color  7,0 

locate  11,5  :  print  *:  TO  POSITION  THE  SENSOR  AT  THE  FIRST  POSITION  AND  RET 
color  0,7 

locate  13,1  :  print  *  o  * 
color  7,0 

locate  13,5  :  print  *:  TO  POSITION  THE  SENSOR  AT  THE  ORIGIN  AND  RETURN  TO  H 
color  0,7 

locate  15,25:  print  *  * 

locate  16,25:  print  *  YOU  HAVE  CONTROL  NON  * 
locate  17,25:  print  ■  * 

locate  19,1  :  print  *  MOMENTARILY  POSITION  * 
locate  19,28:  print  *  NEW  COORDINATES  * 
locate  19,52:  print  *  LAST  POSITION  STORED  * 
color  7,0 
locate  21,5 

print  *X*  tab(15)  *y*  tab(33)  *X”  teb(43}  *Y*  tab(53>  *P08*  tab(61)  *X*  tab 

locate  25,1  :  print  *8TEPSIZE 

color  0,7  s  print  *  Ctrl*PgUp  ■; 

color  7,0  :  print  *-500*; 

locate  35,33 

color  0,7  :  print  *  PgUp  *; 
color  7,0  :  print  *-100*; 
locate  35,50 

color  0,7  :  print  *  PgDn  *; 
color  7,0  :  print  "-lO*; 
locate  35,65 
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color  0,7  :  print  ■  Ctrl-PgOn 
color  7,0  :  print  "-I"; 

PORTB  -  3 
gosub  54 

•  READ  THE  MOHENTARILy  POSITION  OF  THE  SENSOR 

DAC  -  0 

goaub  47 

VX  -  VOLT 

DAC  -  1 

gosub  47 

vy  -  VOLT 

11  if  INSERT  -  1  then 

locate  22,53  :  print  INS  ; 

locate  22,58  :  print  USING  "#/###"  ;  X(INS)  ; 

locate  22,66  :  print  USING  •»*»***  ,*  y(INS)  ; 
end  if 

12  DAC  -  0 
gosub  47 
RX  -  VOLT 
DAC  -  1 
gosub  47 
Ry  -  VOLT 


locate 

22,2 

:  print 

USING 

RX 

0 

locate 

22,12 

!  print 

USING 

Ry 

13  locate 

22,30 

:  print 

USING 

■W##" 

vx 

locate 

22,40 

:  print 

USING 

’•00*00" 

vy 

gosub  53 

if  xysTOP  «  1  then 
PORTB  -  I 
gosub  54 
end  if 
14  V$  •  «« 

V$  -  INKEy$ 
if  V$  -  ""  then  11 
if  LEN(V$)  «  2  then 
V$  -  RIGHTS (VS.l) 
alse 
goto  16 
end  if 


USE  THE  KEy 


PgUp 

PgDn 

Ctrl  PgUp 
Ctrl  PgDn 


TO  INCREMENT  POSITION  WITH  STEPSIZE 
100 
10 
500 
1 


if  V$  -  CKR$(73)  then 
MULT  •  10 

elseif  Vf  >  CHRt(Sl)  then 
MULT  •  1 

elseif  V$  -  CKR$(133)  than 
MULT  -  SO 

elseif  V$  •  CHR$(118)  then 
MULT  >  .1 
and  if 
POftI*  «  3 
geoob  S4 

if  V(  -  CRM(73)  than 
MC  •  1 

Tt  -  VT  -  10*MDLT 
gosub  4S 

alnaif  Vf  >  CMMfCfO)  than 
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DAC  “  1 

VY  -  VY  +  10»MULT 
90SUb  48 

V$  -  CHR$(7S)  then 
DAC  -  0 

VX  -  VX  ♦  10*11ULT 
goaub  48 

alsaif  V$  •  CHR$(77)  then 
DAC  •  0 

VX  -  VX  -  10*MULT 
gosub  48 
and  it 
goto  12 

1«  if  V$  <>  "a*  then  18 
17  if  NUMBEK  •  MAXDIM  then 
return  59 

else 


NUMBER  • 

NUMBER  4  1 

and  if 

if  INSERT 

<>  1  than  15 

for  J  •  INS42  to  NimBER 

HX(J) 

-  X(J-l) 

HY(J) 

-  Y(J-l) 

HS(J) 

.  POSTS (J-1) 

TETAC(J) 

-  TETA(J-l) 

AZIMC(J) 

-  AZIH(J-l) 

HC(J) 

-  H(J-l) 

RANC(J) 

-  RAN(J-l) 

EPSC(J) 

•  EPS(J-l) 

HP$(J) 

.  POSCODES(J-l) 

HS$(J) 

-  SCREENS (J-1) 

HLS(J) 

-  EU>OSTS(J-l) 

HE$(J) 

-  ELSCRS(J-l) 

next 


for  3  >  to  HUKBER 


X(J) 

•  HX(J) 

Y{J) 

-  HY(J) 

POSTS  (J) 

-  HS(J) 

TETA(J) 

-  TETAC(J) 

AZIM(J) 

-  AZINC(J) 

H(J) 

-  HC(J) 

RAN(J) 

«  RANC(J) 

EPS(J) 

-  EPSC(J) 

POSCODES(J] 

-  HPS(J) 

SCREENS (J) 

-  HSS(J) 

ELPOST$(J) 

-  HLS(J) 

ELSCR$(J) 

•  HES(J) 

next 


next 

XCINS-fl)  -  VX 

Y(INSO)  -  VY 

P0ST$(1NS4-1)  - 

TETACINS-tl)  >  0 

AZlN(IIIS-fl)  -  0 

HCIHStl)  -  0 

IUU((IMS41)  -  0 

198(111841)  -  0 


1>OSCOOE$(»S41)-  "• 
8CltEEN8(IN841)  -  «« 
ELI>0ST$(1MS41)  -  ■■ 
CUCKKINS^l)  -  "« 
IMStXT  -  0 

if  maOER  *  MAXDIM  then 
return  1 
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•Isa 

rsturn 
•nd  if 

15  locata  22,53  :  print  NUMBER  ; 

locata  22. 5«  :  print  USING  •t0§0f  ;  VX  ; 
locata  22, «5  :  print  USING  •00000’-  ;  vy  ; 

X  (NUMBER)  -  VX 
Y  (NUMBER)  -  VY 
DAYS  -  OATES 

goto  14 

'  BRING  THE  SENSOR  TO  THE  ORIGIN  OR  THE  FIRST  POSITION 


18  PORTS  •  3 
gosub  54 

if  VS  -  "b"  than 
OAC  >  0 
VX  -  X(l) 
gosub  48 
DAC  >  1 
VY  «  Y(l) 
gosub  48 
gosub  50 
goto  1 

•Isaif  VS  "  "o*  than 
DAC  >  0 
VX  "  XO 
gosub  48 
DAC  >  1 
VY  -  YO 
gosub  48 
gosub  50 
goto  1 
•nd  if 
goto  13 


19  if  NUMBER  -  I 
if  NUMBER  >  I 
gosub  46 
goto  1 
•nd  if 
els 

color  0,7 
locata  1,1  ; 
locata  2,1  : 
locata  3,1  : 
locata  5,1 
color  7,0 
color  23,0  : 
color  7,0  : 

locata  9,1 
color  0,7 
color  7,0 
locata  11,1 
color  0,7  : 

color  7,0 
while  IMS  <• 
color  0,7 

locata  17,18  :  print  *  • 

locata  18,18  :  print  "  THE  GIVEN  MEASUROIEMT  POINT  DOES  NOT  EXIST  ■■ 

locata  19, IS  :  print  ■  " 

locata  80,18  I  print  "  • 


INSERT  A  NEW  MEASUREMENT  POINT  IN  THE  TABLE 

lXDIH  than  59 
than 


print  " 

print  *  INSERT  A  MEASUREMENT  POINT  IN  THE  EXISTI 

print  * 

print  "  GIVE  THE  POSITION  ■; 
print  "AFTER"; 

print  ■  WHICH  THE  NEW  COORDINATES  HILL  BE  INSERTED  " 

print  "  DEFAULT  *; 

print  "  RETURN  TO  THE  MAIN  MENU" 

print  "  INPUT 
input  ■  ",IN8 
0  or  INS  >  NUMBER 
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locata  31,18  :  print  *■  TRY  AGAIN  ■ 

locata  32,18  :  print  *  •• 

color  7,0 

locata  11,1  :  print  *  ■ 

color  0,7 

locate  11,1  :  print  “  INPUT 

color  7,0 
input  ■  ■,INS 
wand 

21  cla 

color  0,7 

locate  1,1  :  print  * 

locata  2,1  :  print  ■  INSERT  A  MEASUREMENT  POINT  IN  THE  EXISTI 

locata  3,1  :  print  ■ 

INSERT  -  1 
DAYS  >  DATE$ 
locata  7,1  :  print  ■  l  ■■ 
locata  7,5 

color  7,0  :  print  'DIRECT  THE  SENSOR  TO  THE  POSITION  TO  BE  INSERTED  BY  THE 

locate  9,1 

color  0,7  :  print  "  2  “ 

locata  9,5 

color  7,0  :  print  'DIRECT  THE  SENSOR  TO  THE  POSITION  TO  BE  INSERTED  BY  THE 

locata  11,1 

color  0,7  :  print  '  3  " 

locata  11,5 

color  7,0  :  print  'INSERT  «; 

color  0,7  !  print  '  KNOvm 

color  7,0  :  print  '  COORDINATES  THROUGH  THE  KEYBORD' 

V$  -  " 

While  vs  <>  '1'  and  VS  <>  '2"  and  VS  <>  '3' 

VS  -  INKEYS 
wand 

if  VS  -  '2'  than 
goto  23 

elaaif  vs  •  "3'  then 
goto  24 
and  if 

•  GIVE  CONTROL  TO  THE  REMOTE  CONTROL 
cla 

color  0,7 

locate  1,1  ;  print  ' 

locate  3,1  :  print  '  INSERT  A  MEASUREMENT  POINT  IN  THE  EXISTI 

locata  3,1  :  print  ' 
goaub  6 
goeub  17 

32  locate  11,31  :  print  INS41 

locate  11,38  :  print  X(INS>-1) 

locate  11,48  :  print  Y(INS+1) 

goto  22 

•  GIVE  CONTROL  TO  THE  CURSORS,  BUT  CHECK  FIRST  IF  THE 

•  REMOTE  CONTROL  IS  DISCONNECTED. 

33  cla 
color  0,7 

locata  1,1  :  print  ' 

locata  3,1  :  print  '  INSERT  A  MEASUREMENT  POINT  IN  THE  EXISTI 

locate  3,1  s  print  ' 
color  7,0 
goaub  59 

•  DIRECT  SENSOR  TO  X(INS)  ,y  (INS)  AND  GIVE  ONITROL 

'  TO  THE  CURSORS 
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FORTH  -  3 
gosub  54 

DAC  -  0 

VX  -  X(INS) 

gosub  48 
DAC  -  1 

VY  -  Y(INS) 

gosub  48 
gosub  53 

whlla  XYSTOP  <>  1 
locat*  35,1 

color  0,7  :  print  *  MOVING  TO  POSITION 
color  7,0  !  print  «  "  ;  ins  ;  " 
gOBub  53 
wand 

locat*  35,1  :  print  "REACHED  POSITION  *  ;  INS  ;  " 
gosub  10 
gosub  17 
goto  1 

•  GIVE  KNOWN  COORDINATES 

34  cls 

color  0,7 
print  * 

print  "  GIVE  THE  COORDINATES  TO  BE  INSERTED 

print  * 
color  7,0 

locat*  7,1  :  input  "X-COORDINATE  ,  VX 

locat*  9,1  :  input  "Y-COORDINATE  ,  VY 

gosub  17 
INSERT  •  0 
goto  1 


35  Cls 

if  NUMBER  •  0  than 
gosub  46 
goto  1 
and  if 


DELETE  A  GIVEN  MEASUREMENT  POINT  FROM  THE  TABLE 


color  0,7 

locat*  1,1  !  print  " 

locat*  3,1  :  print  "  REMOVE  A  MEASUREMENT  POINT  FROM  THE  EXIST 

locat*  3,1  :  print  * 

locat*  7,1  ;  print  "  DEFAULT 

color  7,0 

print  "  RETURN  TO  THE  MAIN  MENU” 
input  ■  •,NB 

Whil*  HB  <»  0  and  NB  >  NUMBER 


color  0,7 

locat*  17,18  :  print  " 

locat*  18,18  :  print  "  THE  GIVEN  MEASUREMENT  POINT  DOES  NOT  EXIST 
locat*  19,18  :  print  " 
locat*  30,18  :  print  " 

locat*  31,18  :  print  "  TRY  AGAIN 

locat*  33,18  :  print  * 
color  7,0 

locat*  9,1  :  print  "  " 

color  0,7 

locat*  9,1  ;  print  •  INPUT 

color  7,0 
input  ■  ■,NB 
w*nd 


37  el* 
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color  0,7 

locate  1,1 

!  print  " 

locate  3,1 

:  print  " 

REMOVE  A  MEASUREMENT  POINT  FROM  THE  EXIS 

locate  3,1 

!  print  " 

color  7,0 

locate  6,1 

print  "POS  X 

Y" 

locate  6,35 

print  "DESCRIPTION" 

locate  8,1 

print  NB 

locate  8,7 

print  using  "/####" 

;  X(NB) 

locate  8,17 

print  using  •ftttt" 

;  Y(NB) 

locate  8,35 

print  POSTS (NB) 

locatn  11,3  :  print  "IS  THIS  THE  CORRECT  ONE  (V/N)?  :* 

AS  -  »* 

while  AS  <>  "y"  and  AS  <>  "V"  and  AS  <>  "n"  and  AS  <>  "M" 
AS  •  INKEYS 
wend 


if  AS  -  "n*  or  AS  -  "N"  then  1 
DAYS  •  DATES 
NUMBER  -  NUMBER  -  1 
if  NB  -  NUMBER  -f  1  then  1 
for  J  •>  MB  to  NUMBER 


X(J) 

V(J) 

POSTS (J) 

TETA(J) 

AZIM(J) 

H(J) 

RAN(J) 
EPS(J) 
POSCODES(J) 
SCREENS  (J) 
ELPOSTS (J) 
ELSCRS(J) 
next 
goto  1 


X(J+1) 

Y{J+1) 

POSTS (J+1) 

TETA{J+1) 

AZIM(Jtl) 

H(J+1) 

RAN(J+1) 

EPS(J-fl) 

POSCODES(a+l) 

SCREENS (J+1) 

ELPOSTS { J+1) 

ELSCRS(J+l) 


'  OPTIMIZATION  OF  THE  SCAN  SEQUENCE 

38  if  NUMBER  <>  0  then  39 
gosub  46 

39  cla 
color  0,7 

locate  13,36  :  print  "  " 

locate  13,36  ;  print  "  OPTIMIZING  NOW  " 

locate  14,36  :  print  "  * 

color  7,0 


'  FIRST  THE  AZIMUTH  DIRECTION 

N1  •  NUMBER  -  1 
for  J  -  1  to  N1 
MAX  •  X(J) 
for  H  •  J  to  NUMBER 
if  MAX  >•  X(M)  then 
MAX  -  X(M) 

K  -  M 
end  if 
next  M 

swap  X(J),X(K) 
swap  Y(J),Y(K) 
swap  POSTS (J), POSTS (K) 
swap  TXTA(J)  ,TETA(K) 
swap  AZIM(J)  ,AZIH(K) 
swap  R(J),B(X) 
swap  lUUI(J)  ,RAM(X) 
swap  EPS(J),EPS(K) 
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■wap  POSCOOE$(J) ,POSCOOE$(K} 

■wap  SCREENS (J)  .SCREENS (K) 

■wap  EU>OSTS(J)  ,ELPOSTS(K) 

■wap  ELSCRS ( J] , ELSCRS (X) 
next  J 

•  IF  THERE  ARE  MORE  POINTS,  HAVING  THE  SAME  X-COORDINATE, 

■  THEN  OPTIMIZATION  IN  ELEVATION  IS  PERFORMED, 

■  I.E.  LOWEST  ELEVATION  FIRST. 

M  -  0 

for  J  -  1  to  N1 

If  X(J)  <-  X(J+I)-.05  or  X(J)  >-  X(J+l)+.05  then 
goto  30 
•nd  if 
M  -  M  +  1 

if  M  -  1  then  K  -  J 
1..  J  <>  N1  then 
goto  31 
end  if 

30  if  M  -  0  then  31 

for  LL  -  K  to  (K+M-1) 

MAX  «  Y(LL) 
for  I  -  LL  to  (K+M) 
if  MAX  >•  V(I)  then 
MAX  -  y(I) 

L  -  I 
end  if 
next  I 

swap  y(L) ,¥(LL) 

■wap  POSTS (L)  .POSTS (LL) 
swap  TETA(L) ,TETA(LL) 

■wap  AZIH(L)  ,AZIM(LL) 

■wap  H(L) ,H(LL) 
swap  RAN(L)  ,RAN(LL) 
swap  EPS(L) ,EPS(LL) 

■wap  POSCODES(L)  ,POSCODES(LL) 

■wap  SCREENS  (L)  ,  SCREENS  (LL) 

■wap  ELPOSTS  (L)  .  ELPOSTS  (LL) 

■wap  ELSCRS (L) .ELSCRS (LL) 
next  LL 
N  -  0 

31  next  J 
goto  1 

'  DISPLAY  THE  COORDINATES  OF  THE  DEFINED  MEASUREMENT 

■  POINTS 

32  key  (1)  on 

if  NUMBER  -  0  then 
gosub  46 
goto  1 
and  if 
els 

color  0,7 

locate  1,1  :  print  " 

locate  3,1  :  print  ”  DISPLAY  AND/OR  DESCRIBE  MEASUREMENT 

locate  3,1  ;  print  * 

locate  5,1  :  print  "  DISPLAY  " 

locate  7,1  !  print  "  i  " 

locate  9,1  :  print  "  a  •• 

locate  11,1  :  print  <•  3  " 

locate  14,1  :  print  "  INPUT  DESCRIPTION  FOR  ■ 
locate  16,1  :  print  ••  4  " 
locate  1B,1  :  print  «  $  " 
locate  20,1  :  print  ■■  6  ■ 
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color  7,0 

locate  7,6  :  print  ”OKE  POSITION” 

locate  9,6  :  print  “ALL  POSITIONS,  ONE  BV  ONE" 

locate  11,6  :  print  "SELECTED  INFORMATION  OF  ALL  POSITIONS" 

locate  16,6  :  print  "ONE  POSITION" 

locate  18,6  :  print  "ALL  POSITIONS" 

locate  20,6  :  print  "EACH  POSITION  AND 

color  0,7  :  print  "MOVE"; 

color  7,0  :  print  "  SENSOR  HEAD" 

locate  24,1  :  print  "CHOOSE  OPTION"  TAB{45)  "FI  -  RETURN  TO  MAIN  MENU" 
33  ZS  •  INKEYS 

if  ZS  -  "1"  then 
goto  41 

elseif  ZS  “  "2"  then 
goto  40 

elseif  ZS  "  "3"  then 
goto  61 

elseif  ZS  «  "4"  then 
goto  37 

elseif  ZS  “  "5“  then 
goto  30 

elseif  ZS  *■  "6"  then 
geto  34 
end  if 
goto  33 


34  els 

gosub  55 


INPUT  INFORMATION  FOR  EACH  POSITION 
WITH  MOVING  TO  POSITION 

•CHECK  IF  REMOTE  CONTROL  IS  DISCONNECTED 


•  INPUT  INFORMATION  FOR  EACH  POSITION 

'  WITHOUT  MOVING  TO  POSITION 

35  for  NB  -  1  to  NUMBER 

if  ZS  -  "5"  then  36 
PORTB  -  3 
gosub  54 
VX  •  X(NB) 

OAC  -  0 

gosub  48 
VY  -  Y(HB) 

DAC  -  1 

gosub  48 

gosub  53 

while  XYSTOP  <>  1 

locate  25,1  ;  print  "  MOVING  TO  POSITION 
color  7,0  :  print  "  "  ;  NB  ; 

gosub  S3 
wend 

PORTB  -  1 
gosub  54 

locate  25,1  :  print  " 

locate  25,1  ;  print  "REACHED  POSITION  "  ;  NB  ; 

color  0,7 

locate  25,35  ;  print  •  GIVE  INFORMATION  NOW  ■; 
color  7,0 

36  els 
gosub  56 
gosub  58 

next  NB 

goto  1 


37  cls 


INPUT  INFORMATION  FOR  ONE  POSITION 
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color  0,7 
print  " 
print  " 
print  •* 
locate  7,1 
color  7,0 
color  0,7 
color  7,0 


INPUT  INFORMATION  FOR  ONE  POSITION 


locate  7,1  :  print  •  DEFAULT 
color  7,0  :  print  "  return  TO  THE  MAIN  MENU” 

color  0,7  :  locate  9,1  :  print  ”  INPUT 

color  7,0  :  input  *  "  ,  NB 

while  NB  «»  0  or  HB  >  NUMBER 
color  0,7 


locate  17,18 
locate  18,18 
locate  19,18 
locate  20,18 
locate  21,18 
locate  22,18 
color  7,0 
locate  9 , l 
color  0,7 
locate  9,1 
color  7,0 
input  "  "  ,  N 
wend 


print  ” 
print  " 
print  " 
print  " 
print  ” 
print  " 


THE  GIVEN  MEASUREMENT  POINT  DOES  MOT  EXIST 


TRY  AGAIN 


39  els 

gosub  56 
gosub  58 
goto  32 


'DISPLAY 

•DESCRIBE 


'  DISPLAY  ALL  MEASUREMENT  POINTS 

'  -  ALL  INFORMATION 

'  -  SELECTED  INFORMATION 

40  tor  NB  »  1  to  NUMBER 
gosub  56 

locate  24,1  :  print  "HIT  A  KEY  TO  CONTINUE"; 
locate  24,45  :  print  "FI  ■  RETURN  TO  MAIN  MENU"; 
do 

loop  while  INKEY$  -  "" 
next  NB 
goto  32 


41  els 

color  0,7 
print  " 
print  " 
print  " 
locate  7 , 1 
color  7,0 
color  0,7 
color  7,0 


DISPLAY  INFORMATION  FOR  ONE  POSITION 


DISPLAY  INFORMATION  FOR  ONE  POSITION 


locate  7,1  :  print  "  DEFAULT  "; 
color  7,0  :  print  "  RETURN  TO  THE  MAIN  MENU" 

color  0,7  :  locate  9,1  :  print  "  INPUT  "; 

color  7,0  :  input  "  "  ,  NB 

while  NB  <-  0  or  NB  >  NUMBER 
color  0,7 


locate  17,18 
locate  18,18 
locate  19,18 
locate  20,18 
locate  21,18 
locate  22,18 
color  7,0 
locate  9,1 
color  0,7 
locate  9,1 
color  7,0 


print  " 
print  " 
print  " 
print  * 
print  " 
print  " 


print  " 


THE  GIVEN  MEASUREMENT  POINT  DOES  NOT  EXIST  " 


TRY  AGAIN 
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input  "  ,  KB 

wend 
gosub  56 

locate  25,1  :  print  “HI 
locate  25,45:  print  "FI 
locate  23,1 
do 

loop  while  iHK£y$  - 
goto  32 


print  "HIT  A  KEV  TO  CONTINUE"; 
print  "FI  -  RETimN  TO  MAIN  MENU"; 


36  if  NUMBER  - 
gosub  46 
goto  1 
end  if 
els 

color  0,7 
locate  1,1 
locate  2 , 1 
locate  3 , 1 
locate  5,18 
locate  6,18 
locate  7,18 


0  then 


write  the  COORDINATE  TABLE  TO  DISK 


CATALOG  THE  MEASUREMENT  POINT  COORDINATE  FILE  ON 
PUT  AN  EMPTY  DISKETTE  IN  DRIVE  B  " 


DMYS  -  FN  DAG$ (DATES) 

FILS  «  MIDS(DMYS,4,3)  +  LEFTS(DMYS,2)  +  RIGHTS (DMYS, 2)  +  «P" 


locate  10,1 
locate  12,1 
locate  15,1 
color  7,0 
locate  10,13 
locate  12,13 
locate  15,13 


print  "  FORMAT  " 
print  "  DEFAULT  " 
print  "  INPUT  " 

:  print  "  mmhddyyp  " 

:  print  "  ";FILS 
:  line  input  "  ",DESCS 


print  " 
print  " 
print  " 
print  " 
print  " 


If  DESCS  ■  ""  then  DESCS  »  FILS 
els 

color  0,7 

locate  8,20  :  print  " 

locate  9,20  :  print  " 

locate  10,20  :  print  "  WRJ 

locate  11,20  :  print  " 

locate  12,20  :  print  " 

color  7,0 

open  "o",/l,"B:"+DESCS 

print  /I, USING  "##/"  ;  NUMBER 
print  #1, USING  "\  \"  ; 

for  J  -  1  to  NUMBER 
print  dl, USING  "\ 
print  /I, USING  "V 
print  dl, USING  "+##//.##"  ; 
print  #1, USING  "+####.##"  ; 
print  #1, USING  "+##//.«"  ; 
print  #1, USING  "+#/##.##"  ; 
print  /I, USING  "+/«#.##"  ; 
print  /I, USING  "+«#/.«■  ; 
print  dl, USING  *+#/##.##"  ; 
print  dl, USING  "\ 
print  dl, USING  "\ 
print  #1, USING  "\ 
next  J 
close  #1 
goto  1 


WRITING  FILE  TO  DISKETTE 


X(J) 

Y(J) 

TETA{J) 

AZIN(J) 

H(J) 

RAN(J) 

EPS(J) 


\";POSTS(J) 

;  ELPOST$(J) 


\"  ;  SCREENS (J) 
\"  ;  ELSCRS(J) 

;  POSCODES(J) 


load  the  COORDINATE  TABLE  FROM  DISK 

CHECK  IF  THERE  ARE  AUtEAOY  MEASUREMENT  POINTS  DEFINED 


f 

42  clS 

if  NUMBER  -  0  then  20 
els 

color  0,7 

locate  5,20  :  print  "  ” 

locate  6,20  :  print  ”  ■■ 

locate  7,20  :  print  "  A  COORDINATE  TABLE  IS  IN  MEMORY  •• 

locate  8,20  :  print  ''  " 

locate  9,20  :  print  *  * 

locate  13,20:  print  "  1  :  color  7,0  :  print  •  OVERWRITE"  :  color  0,7 

locate  15,20:  print  "  2  :  color  7,0  :  print  •  RETURN  TO  MAIN  MENU 

V$  »  ■« 

while  V$  <>  "1"  and  V$  <>  *2" 

VS  »  INKEYS 
wend 

if  VS  -  "2"  then  1 
NUMBER  «  0 

20  els 

color  0,7 
print  * 

print  ■  GIVE  THE  NAME  OF  THE  COORDINATE  FILENAME  (ON  DRIVE  B)  TO  LOAD  INTO 
print  " 

DMYS  -  FN  dags (DATES) 

FILS  -  MIDS(DMYS,4,3)  +  LEFTS(DMYS,2)  +  RIGHTS (DMYS, 2)  +  "P" 

locate  5,1  :  print  «  FORMAT  " 

locate  7,1  :  print  "  DEFAULT  " 

locate  9,1  :  print  «  INPUT  " 

color  7,0 

locate  5,13  :  print  "  MMMDDYYP  " 
locate  7,13  :  print  "  ";FILS 
locate  9,13  :  line  input  "  *,DESC$ 
if  DESCS  «  ""  then  DESCS  -  FILS 
els 

color  0,7 

locate  8,20  :  print  "  " 

locate  9,20  :  print  *  ■ 

locate  10,20  :  print  "  LOADING  THE  FILE  INTO  MEMORY  " 

locate  11,20  :  print  "  " 

locate  12,20  :  print  "  " 

color  7,0 

open  "I«,#1,"B:"+DESCS 
input  fl  ,  NUMBER 
input  #1  ,  DAYS 
for  J  -  1  to  NUMBER 
input  /I  ,  POSTS (J) 
input  fl  ,  ELPOSTS(J) 
input  01  ,  X(J) 
input  #1  ,  Y(J) 
input  ^1  ,  TETA(J) 
input  01  ,  AZIM(J) 
input  01  ,  H(J) 
input  01  ,  RAM(J) 
input  01  ,  EP8(J) 
input  01  ,  SCREENS (J) 
input  01  ,  ELSCRS(J) 
input  01  ,  POSCODE$(J) 
next  J 
close  01 
goto  1 

•  CHECK  POSITIONS  BY  USE  OF  THE  JOYSTICK 

26  if  NUMBER  •  0  then  I 
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A.18 


gosub  46 
goto  1 
and  if 
els 

color  0,7 
locate  1,1 
locate  2 , 1 
locate  3,1 
color  7,0 
locate  6,1 
color  0,7 
locate  8 , 1 
color  7,0 


print  " 

print  ■*  CHECK  MEASUREMENT  POINT  COORDINATES  WIT 

print  * 

print  "PRESS  THE  ACCEPT  BUTTON  ON  THE  REMOTE  CONTROL  TO  GO  TH 
print  "  HOLD  THE  BUTTON  DOWN  ■; 


print  ”  TILL  THE  SENSOR  HAS  REACHED  ITS  POSITION." 
locate  12,1  :  print  "TO  GO  TO  THE  NEXT  POSITION  ■; 
color  0,7 

print  "  PRESS  AND  HOLD  DOWN  "; 
color  7,0 

print  "  THE  BUTTON  AGAIN" 


for  J  -  1  to  NUMBER 


'  CHECK  IF  FUNCTION  KET  FI  HAS  USED 

key(l)  on 
color  0,7 
locate  25,1 

print  "  USE  FUNCTION  KEY  FI  TO  RETURN  TO  THE  MAIN  MENU  AFTER  YOU  ARE  F 
color  7,0 

'  CHECK  IF  ACCEPT  BUTTON  HAS  PRESSED 

wait  1822,1,0 

•  OUTPUT  THIS  POSITION  TO  CHECK  CORRECTNESS 

PORTB  -  3 

gosub  54 

OAC  -  0 

VX  •  X(J) 

gosub  48 

DAC  •  1 

VY  -  Y(J) 

gosub  48 

gosub  53 

while  XYSTOP  <>  1 
gosub  53 
wend 

PORTB  -  1 
gosub  54 
next  J 
goto  1 


43  els 

if  HUMBER  -  0  then 
gosub  46 
goto  1 
end  if 

I 

gosub  55 


PERFORM  A  TESTRUN  TO  TEST  POSITION  ACCURACY  ONLY 


CHECK  IF  THE  REMOTE  CONTROL  IS  DISCONNECTED. 


POSITION  THE  SENSOR  AT  THE  FIRST  POSITION 


PORTB  -  3 

gosub  54  'UNLOCK  SERVO  SYSTEM 

DAC  •  0 
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Pape 

A.19 


VX  -  X{1) 
gosub  48 
DAC  -  1 

W  -  Y(l) 

gosub  48 
gosub  50 

els 

color  0,7 
print  " 
locate  3 , 1 
locate  3 , 1 
locate  5,1 
locate  7,1 
locate  9,1 
locate  11,1 
locate  13,27 
locate  14,27 
locate  15,27 
locate  17,1 
locate  17,26 
locate  17,52 


print  ■■  PERFORM  A  TESTRUN,  TO  TEST  POSITION  AC 

print  • 

print  •USE  THE  FOLLOWING  KEY" 
print  •  n  " 
print  "  b  • 
print  ■  o  " 

print  •  " 

print  •  YOU  HAVE  CONTROL  NOW  • 
print  ■  " 

print  "MOMENTARILY  POSITION" 
print  •  NEXT  POSITION  " 

print  "  LAST  POSITION  • 


color  7,0 

locate  7,5  :  print  TO  CO  TO  THE  NEXT  POSITION" 

locate  9,5  !  print  TO  POSITION  THE  SENSOR  AT  THE  FIRST  POSITION" 

locate  11,5  :  print  ":  TO  POSITION  THE  SENSOR  AT  THE  ORIGIN* 

locate  19,5  :  print  "X"  tab(15)  "Y"  tab(27)  "POS"  tab(35)  "X"  tab(43)  "Y" 

locate  19,53  :  print  "POS"  tab(61)  "X"  tab(69)  "Y" 

locate  20,53  :  print  NUMBER 

locate  20,58  :  print  USING  ;  X (NUMBER) 

locate  20,66  :  print  USING  "/####"  ,*  Y  (NUMBER) 

for  J  -  1  to  NUMBER 
N  «  J  +  1 

if  J  -  NUMBER  then  N  •  HUMBER 
44  gosub  53 

locate  20,2  :  print  USING  ”#/###”  ;  VMX 

locate  20,12  :  print  USING  "/###/■  ;  VMY 

locate  20,27  :  print  J 

locate  20,32  :  print  USING  "Wdd"  ;  X(J) 

locate  20,40  :  print  USING  ”/####"  ;  Y(J) 

if  XYSTOP  <>  1  then  44 

locate  20,27  :  print  N 

locate  20,32  :  print  USING  "#####"  ;  X(N) 

locate  20,40  :  print  USING  ;  Y(N) 

PORTS  •  1 
gosub  54 


45 


color  0,7 

locate  23,35  :  print  "  DESCRIPTION 

locate  25,1  :  print  ”  REACHED  POSITION 

color  7,0 

print  "  ■  ;  J"  "  ; 

locate  25,35  :  print  POST$(J); 

V$  -  ■■ 

While  V5  <>  "n"  and  V$  <>  "b"  and  VS  <>  "o" 

VS  -  IHKEYS 
wend 

PCHtTB  •  3 
gosub  54 

if  VS  <>  "n"  then 
DAC  >  0 


If  VS  -  "b"  then 
VX  >  X(l) 


II 
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ftpe 

AJ20 


gosub  48 
DAC  -  1 
W  -  V(l) 
gosub  48 
gosub  SO 
V$  -  «" 

goto  1 

elsclf  V$  -  ••o''  then 
VX  -  XO 
gosub  48 
DAC  •  1 

VY  -  yo 
gosub  48 
gosub  50 
V$  -  •"• 

goto  1 
end  If 
end  If 
DAC  -  1 
W  -  y(N) 
gosub  48 
DAC  -  0 
VX  <•  X(H) 
gosub  48 
color  0,7 

locate  25,1  :  print  "  MOVING  TO  THE  NEXT  POSITION  •*; 
color  7,0 
print  " 

VS  -  "" 
next  J 
return 


SUBROUTINES 


46  clS 

color  0,7 
locate  5,20 
locate  6,20 
locate  7,20 
locate  8,20 
locate  9,20 
locate  13,20 
locate  23,1 
do 

loop  vhils  INKEVS 
return 


DISPLAY  THAT  NO 


print  ■ 
print  " 

print  "  THERE  IS 

print  ■ 
print  " 

print  "HIT  ANY  KEY  TO 


POINTS  ARE  DEFINED 


NO  COORDINATE  TABLE 
CONTIHUE" 


READ  A  SPECIFIED  CHANNEL  FROM  THE  A/D  CONVERTER 


PARAMETERS  USED: 

~  DAC  A/D  CHANNEL  TO  BE  READ 

~  VOLT  VOLTAGE  ON  THE  CHANNEL 


47  ADRES  -  1808 
out  ADRES  >4,128 
out  ADRES  >5, DAC 
out  ADRES  >6,0 
while  tNP(AORES  >  4)  <  128 
wend 

LON  >  XNP(AORES  >  5) 

Him  -  INP(AORES  >  6) 

VOLT  >  256*RI6N  >  LON 

if  VOLT  >  32787  then  VOLT  •  VOLT  -  695361 
if  DAC  •  0  then  VOLT  •  VOLT*2. 100438#  -  20401 


•AUTO  INCRDIEHTING  OFF 
•SELECT  A/D  CHANNEL 
•START  CONVERSIOI 

•NAIT  FOR  CONVERSION  READY 
•LONER  BYTE 
•HIGHER  BYTE 

•RANGE  -10  TO  >10  VOLT 
•CONVERSICW  TO  BITS 
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Fige 

AJ21 


if  DAC  -  1  then  VOLT  •  VOLT*1.994169#  -  30401 
return 

•  OUTPUT  A  VOLTAGE  TO  A  SPECIFIED  CHANNEL 


'  PARAMETERS  USED 

'  —  DAC  «  0 

•  —  DAC  -  1 

•  —  VY 

'  “  VX 

48  ADRES  -  1808 

if  DAC  -  0  then  49 
VY  -  INT  (VY) 

if  VY  >  2047  then  VY  -  2047 

if  VY  <  -1910  then  VY  -  -1910 
HIGHY  -  INT  (VY/2S6) 

LOWY  -  VY  -  256*HIGHY 

if  HIGHY  <  0  then  HIGHY  -  HIGHY  *  16 

out  ADRES+l  ,  HIGHY 

out  ADRES  ,  LOWY 

return 

49  VX  -  INT  (VX) 

if  VX  >  2040  then  VX  -  2040 

if  VX  <  -2010  then  VX  -  -2010 
HIGHX  -  INT  (VX/356) 

LOWX  -  VX  -  2560HIGHX 

if  HIGHX  <  0  then  HIGHX  -  HIGHX  *  16 

out  ADRES-fl  ,  HIGHX 

out  ADRES-f2  ,  LOWX 

return 


OUTPUT  CHANNEL  FOR  AZIMUTH 
OUTPUT  CHANNEL  FOR  ELEVATION 
VOLTAGE  ON  ELEVATION  CHANNEL 
VOLTAGE  ON  AZIMUTH  CHANNEL 


•UPPER  LIMIT  ELEVATION  DIRE 
•LONER  LIMIT 
•HIGH  VY-BYTE 


•ACTIVATE  ELEVATION  MOTOR 


•UPPER  LIMIT  IN  AZIMUTH 
•LOWER  LIMIT 
•HIGH  VX-BYTE 


•ACTIVATE  AZIMUTH  MOTOR 


SO  oosub  53 

if  XYSTOP  -  1  then 
XYSTOP  -  0 
return 
end  if 
cle 

color  0,7 

locete  1,29  :  print 
locete  3,39  ;  print 
locate  3,39  :  print 
locate  5,10  ;  print 
locate  5,50  :  print 
locate  6,10  ;  print 
locate  6,50  :  print 
locate  7,10  :  print 
locate  7,50  :  print 
color  7,0 

locate  9,13  :  print 
locate  9,53  :  print 
locate  17,10 
color  0,7  :  print  •• 
color  7,0  :  print  " 


DISPLAY  THE  MOMENTARILY  POSITION  OF  THE  SENSOR  HEAD 
PARAMETERS  USED: 

—  VHX  MOMENTARILY  X  -  COORDINATE 
~  VMY  MOMENTARILY  Y  -  COORDINATE 
~  VX  AND  VY 


n 


w 


••  SENSOR  HEAD  IS  MOVING  •• 

m  m 


m 


m 


••  MOMENTARILY  POSITION  •• 
••  NEXT  POSITION  •• 

•  m 

m  m 


■X  Y^^ 

a  •; 

:  STOP  THE  SENSOR  READ  AND  RETURN  TO  THE  MAIN  HENU^^ 


51  COSttb  S3 

it  XYSTOP  •  1  then 
XYSTOP  •  0 
return 
end  if 
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Pipe 


V$  •  IMKEYS 

if  VS  <>  then  52 

DAC  >  0 

VX  -  VMX 

poaub  48 

DAC  «  1 

VY  -  VMY 

gosub  48 

goto  1 

52  locate  10,10  :  print 
locate  10,23  :  print 
locate  10,50  :  print 
locate  10,63  :  print 
goto  51 
return 


USING 

USING  «####/« 
USING 

USING  V/W* 


;  VMX 
;  VMY 
;  VX 
;  VY 


■  TEST  IF  THE  SENSOR  HEAD  HAS  REACHED  THE  GIVEN  POSITION 

'  PARAMETERS  USED: 

•  —  VX  AND  W 

•  —  VMX  AND  VMY 

53  XYSTOP  «  0 

DAC  *  0 
goeub  47 
VMX  •  VOLT 

DAC  •  1 

goaub  47 

VMY  -  VOLT 

if  VMX  >  VX-5  and  VMX  <  VX+5  then  XSTOP  -  1 
if  VMY  >  VY-S  and  VMY  <  VY+5  then  YSTOP  •  1 
if  XSTOP  «  1  and  YSTOP  «  1  then 
XSTOP  •  0 
YSTOP  "  0 
XYSTOP  -  1 
end  if 
return 


LOCH-  AND  UNLOCK  THE  SERVO  SYSTEM 


54  out  1823,145 
out  1821, PORTS 
return 


PORTS  -  0  START  MIRROR,  OPEN  THE  HATCH  AND  LOCK 

PORTS  -  1  STOP  MIRROR,  CLOSE  THE  HATCH  AND  LOCK 

PORTS  >  2  START  MIRROR,  OPEN  THE  HATCH  AMD  UNLOCK 

PORTS  -  3  STOP  MIRROR,  CLOSE  THE  HATCH  AND  UNLOCK 


■  CHECK  IF  THE  REMOTE  CONTROL  IS  DISCWMECTED. 

’  SY  READING  THE  MIRROR  POSITION  TWICE.  IP  POSITICW 

■  IS  NOT  CHANCED  THEN  ROtOTE  CONTROL  IS  DISCONNECTED. 
55  ROTO  -  IMP(1820) 

for  TELL  •  1  to  2 
PP$  -  TIMES 
while  TINES  <•  PPS 
wend 

neat  TELL 

if  (INP(1S30)-ROTO)  •  0  then  return 
color  0,7 

locate  17,18  :  print  **  " 

locate  18,18  :  print  ”  DISCONNECT  THE  REMOTE  CONTROL  * 

locate  It, 18  :  print  ■  ■ 

color  7,0 

locate  22,18  :  print  "HIT  ANY  KEY  WHEN  READY" 
locate  22,1 
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loop  whila  INKEy$ 
raturn 


5(  cla 

color  0,7 
locata  1 , 1 
locata  2,1 
locata  1,1 

locata  S,<0  :  print  ■■  DATE  *;  :  color  7,0  :  print  *  ”  ;  DAYS 

locata  S,1  :  print  •POSITION  •  TAB(25)  »:■  ;  NB 

locata  7,1  :  print  "X  COOKOIMATE"  TAB(25)  ;  X  (NB) 

locata  1,1  :  print  ■y  COOKOIHATE*  TAB(25)  •:•  ;  Y  (NB> 

locata  10,1  :  print  ■CENERAL  DESCRIPTION*  TAB(25)  •:•  ;  POSTS  (NB) 

locata  11,1  :  print  •ELOfENT  SPECIFICATION”  TAB(2S)  ;  ELPOSTS  (NB) 

locata  12,1  :  print  -ELEVATION  ANGLE  (DEC)*  TAB(25)  *:*  ;  TETA  (NB) 

locata  13,1  :  print  *AZINUTH  ANGLE  (DEC)*  TAB (25)  ■:*  ;  AZIN  (NB) 

locata  14,1  :  print  *HEIGNT  (CN)*  TAB(25)  *:*  ;  R  (NB) 

locata  15,1  :  print  -RANGE  (N)*  TAB (25)  *:*  ;  RAN  (NB) 

locata  14,1  :  print  •ENISSIVITY*  TAB(25)  ■:*  ;  EPS  (NB) 

locata  17,1  :  print  -BACKGROUND  DESCRIPTION-TAB (25)  ■:*  ;  SCREENS  (NB) 

locata  10,1  :  print  -ELENENT  SPECIFICATION-  TAB (25)  -:-  ;  ELSCRS  (NB) 

locata  19,1  ;  print  -POSITION  CODE-  TAB(2S)  ■:*  ;  POSCODES  (NB) 

if  ZS  "  -1-  or  ZS  >  -3-  than 

if  ZS  •  -5-  or  ZS  »  -6-  than 

locata  21,1  :  print  -READY  TO  CONTINUE  (Y)  7  ■  ; 

PS  •  — 

whila  PS  <>  -y"  and  PS  <>  -Y* 

PS  -  INKEYS 
wand 

alaa 

locata  21,1  :  print  -IS  THIS  THE  CORRECT  POSITION  ?  (y/n)*  ; 

PS  -  — 

whila  PS  <>  -y*  and  PS  <>  -Y*  and  PS  <>  -n-  and  PS  <>  -N- 
PS  -  INKEYS 
wand 

if  PS  -  -n-  or  PS  -  -N”  than 
raturn  37 
and  if 
and  if 
and  if 
raturn 


DISPLAY  POSITION  INFORNATION 


DISPLAY  POSITION  INFORNATION 


54  Cla 

color  0,7 
print  * 
print  * 
print  • 
color  7,0 
locata  5,1 
locata  5,42 


INPUT  POSITION  INFORNATION 


SELECT  POSITION  DESCRIPTION 


for  B  -  1  to  42  Stop  41 
for  C  •  7  to  21 
locata  C,B 
if  B  •  42  than 
print  CODES  (C-i'S) 
also 

print  CODES  (C-4) 
and  if 
naKt  C 
noNt  B 
print 


t  print  -CODE  DESCRIPTION 
:  print  -CODE  DESCRIPTION 
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print  "CURRENT  POSITION  IS  "  ;  HB;  *  :  «  ;  POSTS  (NB) 

Input;  "TYPE  CODE  TO  SELECT  A  NEW  DESCRIPTION  :  ",  CP 

for  C  •  1  to  30 

it  CP  -  VAL(LEFTS(CODE$(C) ,2) )  then 
POSTS  (NB)  •  RICHTS (CODES (C)  ,19) 
end  if 
next  C 

els 

color  0,7 
print  " 

print  "  SELECT  ELEMENT  DESCRIPTION 

print  " 
color  7,0 

locate  5,1  !  print  "CODE  DESCRIPTION  " 

print 

select  case  CP 
case  1,2,21,22 

for  T  «  5  to  9 

print  ELCODES  (T) 
next  T 
case  3  to  s 
for  T  “  1  to  4 
print  ELCODES  (T) 
next  T 

print  ELCODES  (9) 
case  9 

for  T  •  1  to  10 
print  ELCODES  (T) 
next  T 

case  11  to  16,19,23,29,31  to  33,39,41  to  45,49,91,92 
for  T  •  8  to  10 
print  ELCODES  (T) 
next  T 
case  else 

print  "VOO  CHOSE  A  NON-EXSISTING  POSITION  DESCRIPTION" 
print  "HIT  ANY  KEY  TO  RETURN  TO  PREVIOUS  MENU" 
do 

loop  while  INKEYS  -  "" 
goto  58 
end  select 
65  locate  23,1 

print  "CURRENT  POSITION  IS  "  ;  HB  ;  "  ;  "  ;  POSTS  (NB) 
input; "TYPE  CODE  TO  SELECT  ELEMENT  DESCRIPTION  ;  ",CE 
select  case  CP 
case  1,2,21,22 

if  CE<5  or  CE>9  then  65 
case  3  to  6 

if  CEoi  and  CE<>2  and  CE<>3  and  CE<>4  and  CE<>9  then  65 
case  9 

if  CE<0  or  CE>9  then  65 

case  11  to  16,19,23,29,31  to  33,39,41  to  45,49,91,92 
if  CEoo  and  CEos  and  CE<>9  then  65 
end  select 
for  C  -  1  to  10 

if  CE  •  VAL(LEFT$ (ELCODES (C),l))  then 
ELPOSTS  (MB)  •  RICHTS ( ELCODES (C)  ,19) 
end  if 
next  C 

63  els 

color  0,7 
print  ■ 

print  •  SELECT  ■  ; 
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color  16,7 

:  print 

"BACKGROUND"  ; 

color  0,7 
print  " 
color  7,0 

:  print 

"  DESCRIPTION 

locate  5,1 

:  print 

"CODE  DESCRIPTION 

H 

locate  5,42 

:  print 

"CODE  DESCRIPTION 

N 

for  B  •  1  to  42  atap  41 
for  C  -  7  to  21 
locata  C,B 
if  B  -  42  then 
print  COOES  (C+9) 
else 

print  COOES  (C-6) 
end  if 
next  C 
next  B 
print 

print  “CURRENT  POSITION  IS  "  ;  NB  ;  "  :  “  ;  POSTS  (NB) 

print  “TYPE  COOE  TO  SELECT 

color  21,0  :  print  “BACKGROUNO"  ; 

color  7,0  t  input;"  OESCRIPTION  :  ",  CS 

for  C  -  1  to  30 


if  CS  -  VAL(LEFTS(COOES(C),2))  then 
SCREENS  (NB)  •  RIGHTS(C00ES(C) , 19) 


end  if 
next  C 

els 

color  0,7 

print  " 
print  " 

SELECT  "  ; 

color  16,7 

:  print 

"BACKGROUND"  ; 

color  0,7 
print  " 
color  7,0 

:  print 

"  ELEMENT  DESCRIPTION 

locate  5,1 
print 

:  print 

"CODE  DESCRIPTION 

select  case  CS 
case  1,2,21,22 
for  T  -  5  to  9 
print  ELCOOES  (T) 
next  T 
case  3  to  6 

for  T  -  1  to  4 

print  ELCOOES  (T) 
next  T 

print  ELCOOES  (9) 
case  9 

for  T  -  1  to  10 
print  ELCOOES  (T) 
next  T 

case  11  to  16,19,23,29,31  to  33,39,41  to  45,49,91,92 
for  I  ■  B  to  10 
print  ELCOOES  (T) 
next  T 

case  else 

print  "TOU  CHOSE  A  NON-EXSISTING  BACKGROUND  DESCRIPTION" 
print  "HIT  ANY  KEY  TO  RETURN  TO  PREVIOUS  MENU" 
do 

loop  While  IHKEYS  -  "" 
goto  63 
end  select 
64  locate  23,1 

print  "CURRENT  BACKGROUND  IS  "  ;  NB 


e  M  e  •  e 


SCREENS  (NB) 
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print  *TYPE  CODE  TO  SELECT 
color  23,0  :  print  "BACKGROUND*  ; 

color  7,0  :  input;"  ELEMENT  DESCRIPTION  :  ",  CB 

soloct  case  CS 
case  1,2,21,22 

if  CB<S  or  CB>9  then  64 
case  3  to  6 

if  CBol  and  CB<>2  and  CB<>3  and  CB<>4  and  CB<>9  then  64 
case  9 

if  CB<0  or  CB>9  then  64 

caee  11  to  16,19,23,29,31  to  33,39,41  to  45,49,91,92 
if  CBOO  and  CB<>8  and  CB>9  then  64 
end  select 
for  C  -  1  to  10 

if  CB  -  VAL(LEFTS(ELCODE$(C) ,1))  then 
ELSCRS  (NB)  •  RIGHT$(ELCODE$(C),19) 
end  if 
next  C 


els 

color  0,7 
locate  1,1 
locate  2,1 
locate  3 , 1 
locate  5,60 
locate  5 , 1 
locate  7,1 
locate  8,1 
locate  10,1 
locate  11,1 
locate  12,1 
locate  13,1 
locate  14,1 
locate  15,1 
locate  16,1 
locate  17,1 
locate  18,1 
locate  19,1 
locate  12,25 
locate  13,25 
locate  14,25 
do 

locate  15,25 
loop  while  RAN 
do 

locate  16,25 
loop  while  EPS 


print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

print 

input 

input 

input 


INPUT  POSITION  INFORMATION 


*  DATE  *  ;  :  color  7,0  s 

print  " 

$ 

DAYS 

"POSITION  " 

TAB (25) 

Man 

;  NB 

"X  COORDINATE" 

TAB(2S) 

M  a  N 

;  X  (NB) 

*Y  COORDINATE" 

TAB (25) 

Maw 

;  Y  (NB) 

"GENERAL  DESCRIPTION" 

TAB(25) 

m\m 

;  POSTS  (NB) 

"ELEMENT  SPECIFICATION" 

TAB(25) 

W  a  N 

;  ELPOSTS  (NB) 

■ELEVATION  ANGLE  (DEG)" 

TAB(25) 

•  a  • 

TAB(60)  "NOW:  ■ 

T 

■AZIMUTH  ANGLE  (DEC)" 

TAB (35) 

Nett 

TAB(60)  "NOW;  " 

A 

■HEIGHT  (CM)" 

TAB(25) 

Man 

TAB(60)  "NOW:  ■ 

H 

"RANGE  (M)" 

TAB (35) 

Haw 

TAB (60)  "NON:  " 

R 

■EMISSIVITV" 

TAB(25) 

H  a  H 

TAB(60)  "NON:  • 

E 

"BACKGROUND  DESCRIPTION" 

TAB(35) 

Had 

;  SCREENS  (NB) 

"ELEMENT  SPECIFICATION" 

TAB (25) 

m  » 

;  ELSCRS  (NB) 

"POSITION  CODE" 

TAB (25) 

m  m 

:  POSCODES  (NB) 

"J"  ,  TETA  (NB) 
":*  ,  AZIM  (NB) 
":"  ,  H  (NB) 


:  input  " 
(NB)  <  0 


RAN  (NB) 


:  input  ,  EPS  (NB) 

(NB)  <  0  or  EPS  (NB)  >  1 

PUT  DESCRIPTION  OF  ELDIENTS  INTO  AN  ELEMENT  CODE 


while  TETA  (NB)  >•  180 

TETA  (NB)  -  TETA  (NB)  -  180 
wend 

while  TETA  (NB)  <  0 

TETA  (NB)  •  TETA  (NB)  -4  180 
wend 

select  case  TETA  (NB) 
case  0 
CTETA  -  1 
case  1  to  45 
CTETA  •  3 
case  46  to  89 
CTETA  •  3 
ease  90 
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CTETA  -  4 
case  else 
CTETA  “  9 
end  select 

while  AZIH  (MB)  >-360 

AZIN  (HB)  -  AZIN  (NB)  -  360 
vend 

while  AZIN  (HB)  <  0 

AZIN  (HB)  -  AZIH  (NB)  +  360 
wend 

select  case  AZIN  (NB) 
case  is  <  45 
CAZIM  -  1 
case  45  to  89 
CAZIM  -  2 
case  90  to  134 
CAZIM  -  3 
case  135  to  179 
CAZIM  -  4 
case  180  to  224 
CAZIM  -  5 
case  225  to  269 
CAZIM  -  6 
case  270  to  314 
CAZIM  -  7 
case  315  to  359 
CAZIM  -  8 
case  else 
CAZIM  -  9 
end  select 


select  case  H  (NB) 
case  is  <  1 
CH  «  1 
case  1  to  4 
CH  -  2 
case  5  to  9 
CH  -  3 

case  10  to  24 
CH  -  4 

case  25  to  49 
CH  -  5 

case  50  to  99 
CH  -  6 

case  100  to  199 
CH  -  7 

case  200  to  499 
CH  -  8 

case  else 

CH  -  9 
end  select 


select  case  RAN  (NB) 
case  is  t  20 
CRAM  -  1 
case  20  to  49 
CRAM  -  2 
case  50  to  99 
CRAM  -  3 
case  100  to  199 
CRAM  •  4 


rov:  (a) 

0  -  .35 


.35  -  .875 


-  1.75 


3.50 
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CBS*  200  to  299 
CRAN  >  5 
case  300  to  499 
CRAN  •  6 
case  500  to  999 
CRAN  «  7 
case  is  >  999 
CRAN  -  8 
case  else 
CRAN  «  9 
end  select 


-  5.25 

-  8.75 
-17.50 


17.50-  ... 


if  EPS  (NB)  <0.2  then 
CEPS  «  1 

clseif  EPS  (NB)  -  1  then 
CEPS  -  9 

else 

CEPS  -  INT  (10  •  (EPS  (NB)  +  0.0001)) 
end  if 

■THE  ELEMENTS  OF  THE  POSITION  CODE  ARE  KNOViN  BY  NON  AND  AVAILABLE 
•AS  !  CP-CE-CTETA-CAZIM-CH-CRAN-CEPS-CS-CB 

•WITH  :  2+1+  1  +  1  +1+  1  +  1  +  2+1  CHARACTERS 

•THIS  CODE  OF  11  NUMBERS  WILL  BE  READ  INTO  A  STRING  !  POSCODES 

CPS  •  FNNUMS  (CP) 
if  LEN  (CPS)  <>  2  then 
CPS  -  ••O^^  +  CPS 
end  if 

CES  •  FNNUMS  (CE) 

CTETAS  »  FNNUMS  (CTETA) 

CAZIMS  e  FNNUMS  (CAZIH) 

CHS  "  FNNUMS  (CH) 

CRANS  •  FNNUMS  (CRAN) 

CEPSS  ••  FNNUMS  (CEPS) 

CS$  >  FNNUMS  (CS) 
if  LEN  (CSS)  <>  3  then 
CSS  •  ’•O^^  +  CSS 
end  if 

CBS  -  FNNUMS  (CB) 

POSCODES  (NB)  -  CPS  +  CES  +  CTETAS  +  CAZIMS  +  CHS  +  CRANS  +  CEPSS  +  CSS  +  C 
els 

color  0,7 

locate  1,1  :  print  •• 

locate  2,1  ;  print  ••  DISPLAY  POSITION  INFORMATION 

locate  3,1  :  print  •• 

locate  5,60  ;  print  *  DATE  ••  ;  :  color  7,0  ;  print  »  ■  ;  DAYS 

locate  5,1  !  print  ••POSITION  ••  TAB (25)  ••:••  )  NB 

locate  7,1  :  print  ••x  COORDINATED^  TAB (25)  ••:••  ;  X  (NB) 

locate  8,1  :  print  ••¥  COORDINATEdd  TAB(25)  ••:••  ;  Y  (NB) 

locate  10,1  :  print  ••GENERAL  DESCRIPTION'd  TAB(25}  ":••  ;  POSTS  (NB) 

locate  11,1  :  print  ••ELEMENT  SPECIFICATIORdd  TAB(2S)  ■:••  ;  ELPOSTS  (NB) 

locate  12,1  :  print  ••ELEVATION  ANGLE  (DEG)*  TAB(25)  *:*  (  TETA  (NB) 

locate  13,1  :  print  "AZIMUTH  ANGLE  (DEG)*  TAB(2S)  *;”  ;  AZIN  (NB) 

locate  14,1  :  print  "HEIGHT  (CM)*  TAB(25)  ■:*  ;  B  (MB) 

locate  19,1  :  print  "RANGE  (M)"  TAB (25)  *:"  ;  RAM  (NB) 

locate  16,1  :  print  "EMISSIVITY"  TAB(25)  *:"  ;  EPS  (MB) 

locate  17,1  :  print  "BACKGROUND  DESCRIPTION"  TAB(25)  ":"  ;  SCREENS  (NB) 

locate  1B,1  ;  print  "ELEMENT  SPECIFICATION*  TAB(25)  *:*  ;  ELSCRS  (NB) 

locate  19,1  :  print  "POSITION  CODE"  TAB(25)  *:*  ;  POSCODES  (NB) 

locate  23,1  I  print  "NIT  ANY  KEY  TO  CONTINUE* 

do 
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loop  while  INKEy$  - 
if  ZS  -  "5"  or  2$  -  '*6"  then 
return 
else 

goto  32 
end  if 

'  DISPLAY  THAT  MAXIMUM  OF  'MAXDIM'  POSITIONS  IS  REACHED 

59  els 

color  0,7 

locate  5,20  :  print  "  » 

locate  6,20  :  print  "  • 

locate  7,20  :  print  "  MAXIMUM  OF  ", -MAXDIM;"  POSITIONS  IS  REACHED  • 

locate  8,20  :  print  "  » 

locate  9,20  :  print  "  • 

locate  13,20  :  print  "HIT  ANY  KEY  TO  CONTINUE" 

locate  23,1 
do 

loop  while  INKEY$  -  "" 
goto  1 

61  els 
color  0,7 
print  " 

"  DISPLAY  SELECTED  INFORMATION  FOR  ALL  POSITIONS 

print  " 

locate  5,1  :  print  "  i  " 

locate  7,1  !  print  «  2  " 

locate  9,1  !  print  "  3  " 

locate  11,1  ;  print  "  4  " 

locate  13,1  :  print  "  5  " 

locate  15,1  !  print  "  4  " 

locate  17,1  :  print  "  7  " 

locate  19,1  :  print  "  8  " 

locate  21,1  i  print  "  9  " 

locate  23,1  !  print  "  0  " 

color  7,0 

locate  5,6  :  print  "GENERAL  DESCRIPTION" 

locate  7,6  :  print  "ELEMENT  SPECIFICATION" 

locate  9,6  :  print  "ELEVATION  ANGLE  (DEG)" 

locate  11,6  !  print  "AZIMUTH  ANGLE  (DEG)" 

locate  13,6  :  print  "HEIGHT  (CM)" 

locate  15,6  :  print  "RANGE  (M)" 

locate  17,6  :  print  "EMISSIVITY" 

locate  19,6  :  print  "BACKGROUND  DESCRIPTION" 

locate  21,6  :  print  "ELEMENT  SPECIFICATION" 

locate  23,6  :  print  "POSITION  CODE" 

locate  25,1  :  print  "CHOOSE  FROM  LIST,  TYPE  NUMBER"; 

62  YS  -  INKEYS 
TITLES  "  "FOOT" 

for  NB  »  1  to  NUMBER 
if  YS  -  "l«  then 

INFOS  (NB)  -  POSTS  (NB) 

TITLES  -  "  DESCRIPTION  " 
elseif  YS  -  "2"  then 

INFOS  (NB)  -  ELPOSTS  (NB) 

TITLES  -  "SPECIFICATION" 
elseif  Y$  «  "3"  then 

INFOS  (NB)  -  STRS  (TETA  (NB) ) 

TITLES  -  "  ELEVATION  " 
elseif  YS  »  "4"  then 

INFOS  (NB)  -  STRS  (AZIH  (NB) ) 

TITLES  -  "  AZIMUTH  " 
elseif  YS  •  "5"  then 
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IHFO$  (NB)  -  STR$  (H  (NB) ) 

TITLES  -  "  HEIGHT  “ 
elseif  YS  -  "S"  then 

INFOS  (NB)  -  STRS  (RAN  (NB) ) 

TITLES  -  "  RANGE  “ 

elseif  VS  -  "7"  then 

INFOS  (NB)  -  STRS  (EPS  (NB) ) 

TITLES  -  "  EMISSIVITV  " 
elseif  YS  -  "8"  then 

INFOS  (NB)  -  SCREENS  (NB) 

TITLES  -  "  BACKGROUND  " 
elseif  YS  -  "9"  then 

INFOS  (NB)  -  ELSCRS  (NB) 

TITLES  -  "SPECIFICATION" 
elseif  YS  ”  "0"  then 

INFOS  (NB)  «  POSCOOES  (NB) 

TITLES  «  "  CODE  " 
end  if 

if  TITLES  -  "FOOT"  then 
NB  -  0 
goto  62 
end  if 
next  NB 

els 

color  0,7 
print  " 

print  "  DISPLAY  SELECTED  INFORMATION  FOR  ALL  POSITIONS 

print  " 
color  7,0 

TS  -  "POS  "+TITLES 
locate  5,1  :  print  TS  tab(42}  TS 
for  BN  -  1  to  NUMBER 
if  BN  <  16  then 

locate  (6+BH),l  'LINES  7  TILL  17,  COLUMNS  1  TILL  41 

else 

locate  (BN-9),42  'LINES  7  TILL  17,  COLUMNS  42  TILL  80 

end  if 

print  using  ■#/"  ;  BN  ;  :  print  "  ■  ;  INFOS (BN) 

next  BN 

locate  25,1  ;  print  "HIT  ANY  KEY  TO  CONTINUE"  ; 
locate  25,45  ;  print  "FI  »  RETURN  TO  MAIN  MENU"  ; 
locate  23,1 
do 

loop  while  INXEYS  -  "" 
goto  32 
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36 

04-06-1990 

GRASS 

GROWING-NORMAL 

-2001.00 

-1323.00 

-i-O.OO 

•4340.00 

•46.00 

•410.00 

•40.95 

GRASS 

GROVlING-MORMAL 

02518319025 

TRGES-DECIDUOUS 

BUDS 

-1996.00 

-896.00 

490.00 

4340.00 

4300.00 

430.00 

40.95 

TREES-DECIDUOUS 

BUDS 

06428829064 

TREES-DECIDUOUS 

BUDS 

-1538.00 

-930.00 

490.00 

4290.00 

4200.00 

440.00 

40.95 

GRASS 

GROWING-NORMAL 

06437839035 


CAMOUTLACB-ADAPTIVE 
NO  SUB-TITLE 
41236.00 
-1428.00 
40.00 
490.00 
41.00 
48.00 
40.67 
CONCRETE 
MO  SUB-TITLE 
33013216110 
CAMOUELAGE-SCREEM 
NO  SUB-TITLE 
-566.00 
-1051.00 
40.00 
4200.00 
43.00 
425.00 
40.95 
CRASS 
CRUSHED 
32015229027 
CAMOUPLAGE-SCREEN 
HO  SUB-TITLE 
-555.00 
-1067.00 
40.00 
4200.00 
42.00 
425.00 
40.91 
GRASS 
CRUSHED 
33015239027 


CONCRETE 
NO  SUB-TITLE 
4747.00 
-1356.00 
40.00 
490.00 
41.00 
48.00 
40.90 
CONCRETE 
NO  SUB-TITLE 
11013219110 


TEST-SOURCE  4  3  DEG 
HO  SUB-TITLE 
-795.00 
-786.00 
490.00 
4235.00 
410.00 
40.50 
41.00 

SKY 

HO  SUB-TITLE 
91036419440 
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C2 


i 

I 


! 


I 


dafdbl  S 
key  off 
color  0,7 


locate 

1.5 

print 

M 

locate 

2.5 

print 

N 

PHYSICS  AND 

ELECTRONICS 

LABORATORY 

locate 

3,5 

print 

•1 

color  7,0 

locate 

5,5 

print 

-OUDE  HAALSDORPERHEG  63  ■ 

locate 

6,5 

print 

-P.O.  BOX 

96864  ■ 

locate 

7.5 

print 

*2508  JG  THE  HAGUE  ■ 

locate 

8.5 

print 

■THE  NETHERLANDS  * 

locate 

9.5 

print 

■TEL.  (31) 

70264221  ■ 

locate 

11,5 

print 

■  CCCCCC 

AAAAAA  RRRRRRR 

AAAAAA 

BBBBBBB 

locate 

13,5 

print 

■CCCCCCCC 

AAAAAAAA  RRRRRRRR 

AAAAAAAA 

BBBBBBBB 

locate 

13,5 

print 

"CC 

AA  AA  RR  RR 

AA 

AA 

BB  BB 

locate 

14,5 

print 

■CC 

AAAAAAAA  RRRRRRRR 

AAAAAAAA 

BBBBBBB 

locate 

15,5 

print 

■CC 

AAAAAAAA  RRRRRRR 

AAAAAAAA 

BBBBBBB 

locate 

16,5 

print 

■CC 

AA  AA  RR  RR 

AA 

AA 

BB  BB 

locate 

17,5 

print 

■CCCCCCCC 

AA  AA  RR  RR 

AA 

AA 

BBBBBBBB 

locate 

18.5 

print 

«  CCCCCC 

AA  AA  RR  RR 

AA 

AA 

BBBBBBB 

locate 

23,5 

print 

■(C)  DEVELOPED  BY  Dr.ir.  P.A.M. 

JACOBS 

AND 

Ing.  R.  van 

locate 

24,10 

print 

■LAST  REVISED  :  5  APRIL  1988*; 

for  lal  to  4000 
next 

•  PROGRAMME  NAME:  C  A  R  A  B  A  S 


PARAMETERS  USED  IN  THIS  PROGRAMME 


'PARAMETEP^  RELATED  TO  THE  DETECTOR  WORKING  IN  :  3  -  S  MB  8  -  14  MB 

’HAVE  THE  ARRAY  INDEX  EQUAL  TO  :  1  2 

'TR(H,J,I)  :MEASUREO  RADIATION  TEMPERATURE  OP  CALIBRATION  SOURCE  I 
•  (1-1.3)  AT  LOCATION  X(M),y(N)  (K) 

’TS(I..3)  :MEASUREO  TEMPERATURE  OF  CALIBRATION  SOURCE  I  (X) 

'E(J,I..3)  :CALCULATEO  ’APPARENT’  PUPIL  IRRAOIANCE  FOR  CALIBRATION  SOURCE 
'  I  (1-1,3)  FOUND  FRCHt  THE  CALIBRATION  TABLE  ■CALIBRAT’’  (H/a2) 

’E(N,J,4)  iCALCULATED  PUPIL  IRRAOIANCE  FOR  THE  UNXNOWI  SURFACE  AT 
'  LOCATION  X(N).Y(N)  (H/n2) 

'V(N,J,I)  ;MEASUREO  DETECTOR  VOLTAGE  FOR  CALIBRATION  SOURCE  I  AT 
'  LOCATION  X(N),y(N)  (V) 

■V(N,J,4)  :MXASURED  DETECTOR  VOLTAGE  FOR  THE  UNKNOWN  SURFACE  AT 
'  LOCATION  X(N},y(N)  (V) 

■VPT(N,I)  :NEASURED  VOLTAGES  OVER  THE  Pt-RESISTORS  IN  THE  CALIBRATION 
'  SOURCES  I  (1-1,3)  AT  LOCATION  X(N)  ,y(N)  (V) 

'A(J)  :CALIBRATION  CONSTANT  (H/(b2.V)) 

’B(3)  ;CALIBRATI<»I  CONSTANT  (N/b2) 

’  :THE  CALIBRATION  NUATION  IS  GIVEN  BY: 

’  B(N,J,I)  -  A{H,J)  *  V(N,J,I)  ♦  B(N,J)  (H/b2) 


’ET(J,M)  :INTEGRATEO  PLANCK’S  EQUATION  FOUND  FROM  THE  LOOK-UP  TABLE 
’  (SEE  PROGRAMME  ’’KAKETAB*) 

■TT(M)  :  array  OF  TEMPERATURE  DATA  FOUND  FROM  THE  LOOK-UP  TABLE 

■  THIS  TABLE  HAS  A  TEMPERATURE  RESOLUTION  OF  0.5  K 

'  A  LINEAR  REGRESSION  IS  USED  TO  INCREASE  RESOLUTICHI  TO  O.IK 

’X(N),Y(N)  :COOROIHATES  OF  A  MEASUREMENT  LOCATION  M 


I 


’  DEFINE  XEYFUNCTIONS 

’  DISPLAY  CURRENT  DATA,  DURING  RUNNING  OF  PROGRAMME 

on  key  (1)  soeub  83 
key  (1)  off 

’  DISPLAY  THE  TIMING  PARAMETERS, 

’  DURING  RUNNING  OF  THE  PROGRAMIX 

on  key  (3)  goeub  77 


TNOrtport 


Appendix  C 


key  (2)  off 

'  INTEKRUPT  THE  PROGRAMME,  CLOSE  THE  FILES  AND 

'  EXIT  FROM  THE  PROGRAMME  TO  RETURN  TO  DOS 

on  key  (3)  gosub  36 
key  (3)  off 

'  KEY  4  AND  5  TO  PRINT  RESULTS  DURING  RUNTIME 

on  key  (4)  goeub  49 

key  (4)  on 

on  key  (5)  gosub  48 

key  (S)  on 

■  KEY  6  TO  CHANGE  DATA  DISKETTE 

on  key  (6)  gosub  79 
key  (6)  off 

'  KEY  7  FOR  EMERGENCY  EXIT  AT  ALL  TIME 

on  key  (7)  gosub  36 
key  (7)  on 

on  ERROR  goto  40 

'  MAXIMUM  NUMBER  OF  CHANNELS  >  30 

const  MAXDIM  •  30 
din  BT(3,200) ,TT(200) 

din  CAL(3,9),RES(3),TS(3),CH(5),R(2),A(2).B(2) 
din  VPT  (MAXDIM, 4)  ,TIJD$  (MAXDIM)  , POSTS  (MAXDIM) 
din  V  (MAXDIM,2,4),B  (MAXDIM,2,4)  ,TR  (MAXDIM,2,4) 
din  X  (MAXDIM), Y  (MAXDIM) .TETA  (MAXDIM) , AZIM  (MAXDIM) 
din  H  (MAXDIM), RAN  (MAXDIM), EPS  (MAXDIM) 
din  ELPOSTS  (MAXDIM)  ,  SCREENS  (MAXDIM)  ,  ELSCRS  (MAXDIM) 
din  POSCODES  (MAXDIM) 
din  N0NS(12) 

MONS(I)  -  "JAN" 

MONS(2)  -  "FEB" 

N(HIS(3)  -  "MAR" 

NONS(4)  -  "APR" 

MONS(5)  -  "MAY" 

NONS(6)  -  "JUN" 

MOMS  (7)  •  "JDL" 

MONS(8)  -  "AUG" 

MOMS (9)  -  "SEP" 

M(»tS(10)  -  "OCT" 

N(HIS(11)  -  "NOV" 

MONSdS)  -  "DEC" 

DEF  FNDAGS(DATS)  »  NID$(DATS,4,3)-fMOHS(VAL(LEFTS  (DATS,  2)  )  )4RICHTS(DAT$,5) 

'  OPEN  A  SEQUENCIAL  FILE 

'  FOR  READING  THE  TABLES 

'  GET  CALIBRATION  TABLES  FROM  DISK  UNDER  THE  NAME 

'  'CALIBRAT* 

color  0,7 

loeste  6,39  :  print  *  ■ 

looste  7,39  :  print  "  LOADING  TABLES,  PLEASE  WAIT _  " 

locete  S,19  :  print  ■  « 

color  7,0 

'  UXH(-UP  TABLE  FOR  IRRAOIANCK  IS  DEFINED  FOR  ABSOLUTE 

'  TEMPERATURES  NITHIN  THE  RANGE  250  -  3S0  K. 

open  "I", #1, "CALIBRAT" 
for  N*!  to  200 

input  fl,TT(M),BT(l,H),BT(3,N) 


TNOrtport 


Appendfac  C 


F%e 

C4 


I 

i 

I 


naxt  M 

•  CALIBRATION  TABLE  FOR  THE  PLATINUM  TEMPERATURE  SENSOR 

•  (PtlOO),  USABLE  FOR  MEASURED  TEMPERATURES  BETWEEN 

■  -30  TO  ♦SO  daqC. 

for  1>1  to  9 
for  J»1  to  3 

input  #l,CAL(J,I) 
naxt  J 
naxt  I 
eloaa  #1 

•  DEFAULT  SETTINGS 
DRIVES  «  “D!" 

TEXTS  -  "• 

DNEXTS  -  •" 

TNEXTS  -  •“ 

PARSET  -  0 
DIS  -  0 
EROE  -  0 
INDEX  -  0 
FAC  •  0 
FOPEN  •  0 
TEL  -  0 
PR  -  0 
KEYS  >  0 
for  J-I  to  MAXDIM 
POSTS  (J)  •  "■ 

TETA(J)  «  0 
AZIM(J)  -  0 
H(J)  •  0 
RAN(J)  ••  1 
EPS(J)  >  1 
naxt  J 

out  1813,128  'AUTO  INCREMENTING  OFF 

'  DEFINE  MAIN-MENU 

1  opan  ■I'',#1,''A:P0MER.FAL" 

Input  #1,  POWER 
cloaa  FI 
47  CIS 

if  POWER  *  0  than  38 
TEST  •  0 
color  0,7 

locate  1,S  :  print  " 

locate  2,S  >  print  *  HAKE  A  CHOICE  FROM  THE  MAIN  MENU 

locate  3,S  :  print  ■ 

locate  S,S  :  print  ■  l  :  color  7,0  :  print  ■  DEFINE  PARAMETER  SETTING 

locate  7,S  :  color  0,7  :  print  "  3  :  color  7,0  :  print  *  DISPLAY  CURRE 

locate  9,S  :  color  0,7  :  print  "  3  <■;  :  color  7,0  :  print  "  PERFORM  A  TES 

locate  11, S;  color  0,7  :  print  ”  4  :  color  7,0  :  print  <■  START  AUTOMAT 

locate  13, S:  color  0,7  s  print  *  a  *;  :  color  7,0  :  print  "  EXIT" 

3  AS  •  INKEYS 

if  AS  -  "1"  then 
9ote  3 

elseif  AS  •  "3"  then 

goto  39 

elseif  AS  -  "3"  then 

els 

TBST>1 

it  PARSET  •  1  then 
goto  34 
else 
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qoto  24 
•nd  if 

•Isalf  A$  -  ••4*  than 
ela 

qoto  34 

alsaif  A$  «  ■a*  than 
cla 
elosa 
qoto  35 
and  if 
qoto  3 


3 


4 


•  DEFINE  TIMING  PARAMETERS 

ela 

opan  •■0'',#l,oA:REST0P.CAR* 
color  0,7 

loeata  1,5  :  print  ■ 

loeata  2,5  l  print  GIVE  THE  DATE  TO  START  THE  MEASUREME 

loeata  3,5  :  print  * 

loeata  5,5  :  print  *  FORMAT  <*;  :  eolor  7,0  :  print  ■  MM-DD-vyyy 

loeata  7,5  :  eolor  0,7  :  print  "  DEFAULT  :  eolor  7,0  :  print  ■  ACTUAL  DA 

loeata  10,5:  eolor  0,7  :  print  *  INPUT  :  eolor  7,0  :  print  "  "i 

lina  input  DSTART$ 
if  DSTARTS  -  "■  than 
DSTARTS  «  OATES 
qoto  C 

alaaif  DSTARTS  >~  DATES  than 
qoto  6 
and  if 
ela 

loeata  2,2  :  print  ■THE  GIVEM  DATE 
color  0,7  :  print  ■  ■  DSTARTS  "  ■; 

color  7,0  :  print  ■  is  SMALLER  THAN  THE  ACTtUO.  DATE  ■; 
color  0,7  :  print  ■  ■;datES  "  • 

color  7,0  :  locate  4,2  :  print  "GIVE  THE  CORRECT  ■; 
qoto  4 


ela 

color  0,7 

loeata  1,5  :  print  ■ 

loeata  2,5  :  print  " 

loeata  3,5  :  print  ■ 

loeata  5,5  :  eolor  0,7  :  print  " 

loeata  7,5  :  color  0,7  :  print  ■ 

locate  10,5:  color  0,7  :  print  ■ 
lina  input  DSTOPS 
if  DSTOPS  •  ■■  than 
DSTOPS  -  "IS-Sl-lSSS" 
qoto  21 

alaaif  DSTOPS  >■■  DATES  than 
qoto  21 
and  if 
cla 

loeata  2,2 
color  0,7  : 
eolor  7,0  : 
eolor  0,7  : 
color  7,0  : 
qoto  S 


GIVE  THE  DATE  TO  STOP  THE  MEASURE3IEH 


FORMAT 

DEFAULT 

INPUT 


color  7,0 
color  7,0 
color  7,0 


print  ■  MM-DD-yyy 
print  ■  12-31-199 
print  ■  ■; 


!  print  "THE  GIVEN  DATE 
print  DSTOPS; 

print  ■  IS  SMALLER  THAN  THE  ACTUAL  DATE 
print  •  ";DATES  ■  • 

locate  4,2  :  print  "GIVE  THE  CORRECT  ■; 


21  writa  #l,OSTWS 


22  ela 

color  0,7 


M 


TNOripait 


AppeadizC 


local*  1,5  :  print  " 

local*  2.5  :  print  ■  GIVE  THE  TIME  TO  START  THE  MEASUREME 

local*  3,5  :  print  " 

local*  5,5  :  color  0,7  :  print  "  FORMAT  :  color  7,0  :  print  *  HH:HM:SS 

local*  7.5  :  color  0,7  :  print  ■  DEFAULT  •;  :  color  7,0  :  print  •  ACTUAL  T1 

local*  10,5:  color  0,7  :  print  "  input  ■;  :  color  7,0  :  print  ■ 

lin*  input  TSTART$ 
if  T8TART$  -  th*n 

TSTARTS  -  "ACTUAL  TIME" 
goto  33 

*ls*if  TSTART$  >•  TIMES  th*n 
goto  23 
•nd  if 
cl* 

local*  3,3  :  print  "THE  GIVEN  TIME  "; 
color  0,7  ;  print  "  "  TSTAOTS  "  "; 

color  7,0  :  print  "  IS  SMALLER  THAN  THE  ACTUAL  TIME  "; 
color  0,7  ;  print  "  ";TIME$"  " 

color  7,0  :  local*  4,2  :  print  "GIVE  THE  CORRECT  "; 
goto  22 

23  clB 

color  0,7 

local*  1,5  :  print" 

local*  3,5  :  print  "  GIVE  THE  TIME  TO  STOP  THE  MEASUREMEN 

local*  3,5  :  print  " 

local*  5,5  :  print  "  FORMAT  :  color  7,0  :  print  "  HH:MM:ss  » 
local*  7,5  :  color  0,7  :  print  "  DEFAULT  ";  :  color  7,0  :  print  "  33:59:00" 
local*  10,5:  color  0,7  :  print  "  INPUT  ";  :  color  7,0  :  print  "  "; 
lin*  input  TSTOPS 
if  TSTOPS  -  •"  th*n 
TSTOPS  •  "23:59:00" 
goto  31 

*lS*if  DSTOPS  >  OSTARTS  th*n 
goto  31 

*ls*if  TSTOPS  >  TIMES  th*n 
goto  31 
*nd  if 
cl* 

local*  2,2  :  print  "THE  GIVEN  TINE  "; 
color  0,7  :  print  "  "  TSTOPS  "  "; 

color  7,0  :  print  "  IS  SMALLER  THAN  THE  ACTUAL  TINE  "; 
color  0,7  :  print  "  "sTIMES"  " 

color  7,0  :  local*  4.3  :  print  "GIVE  THE  CORRECT  "; 
goto  23 

31  writ*  #1, TSTOPS 
cl* 

color  0,7 

local*  1,5  :  print  " 

local*  3,5  :  print  "  give  the  TIME  BETMEEM  TNO  SCANS 

local*  3,9  :  print  ■ 

loeata  9,5  :  print  "  FORMAT  ";  :  color  7,0  :  print  "  MINUTES  " 
local*  7,9  t  color  0,7  :  print  ■  DEFAULT  ";  :  color  7,0  :  print  "  19  " 

loeata  IS, 9:  color  33,0:  print  *  NOTE  :  "  :  color  7,0 

loeata  IS, 9:  print  ■  A  MULTIPLE  OF  INTERVALS  SHOULD  BE  EXCACTLY  ONE  OUR  (S 

local*  10,5:  color  0,7  :  print  "  INPUT  ";  :  color  7,0  :  input  ■  ",INTV 

if  nrtv  <  1  tbwi  INTV  •  19 

wBllO  *0  MOD  INTV  <>  0 

loeata  10,9  :  print  "  " 

loeata  10,9  t  color  0,7  :  print  "  INPUT  ■;  :  eelor  7,0  :  input  "  ",INTV 

if  INTV  <  1  than  INTV  -  19 
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writ*  Pl.IHTV 


PARSET  <•  1 
24  cls 

color  0,7 

locata  1,5  :  print  ■* 

locato  2,5  :  print  *  GIVE  THE  NAME  OF  THE  FILE  CONTAINING  THE  COORDINATE  T 
locat*  3,5  :  print  ■ 

I»n$  >  FN  DAG$  (DATES) 

PFILS  -  MID$(DMV$,4,3)  +  LEFT$(DMY$,2)  4  RIGHTS (DMV$, 2)  +  "P* 
loeata  5,5  :  print  «  FORMAT  ■;  :  color  7,0  :  print  «  MHMDDYYP  " 

locato  7,5  :  color  0,7  :  print  ■  DEFAULT  :  color  7,0  :  print  ■  •;  PFILS 

loeata  10,5:  color  0,7  :  print  ■  INPUT  :  color  7,0  ;  print  " 

llna  Input  DESCS 

it  DESCS  -  than  DESCS  -  PFILS 

wrlta  /I, DESCS 
vrlta  Pl, DRIVES 
eloaa  fl 


cla 

color  0,7 

locato  1,5  :  print  * 

loeata  2,5  :  print  *  GIVE  THE  NAME  OF  THE  DATA  STORAGE  FILE 

loeata  3,5  ;  print  * 

DMYS  >  FN  DAGS (DATES) 

FILS  -  MIDS(DMYS,4,3)  ♦  LEFTS(DMYS,2)  +  RIGHTS  (DMYS,  2)  +  "C" 

loeata  5,5  !  print  "  FORMAT  ■;  :  color  7,0  :  print  ■  NMMDDYYC  " 

locato  7,5  :  color  0,7  :  print  ■  DEFAULT  ■;  i  color  7,0  s  print  •  •?  FILS 

loeata  10,5:  color  0,7  :  print  »  INPUT  :  color  7,0  :  print  *  "i 

lino  Input  FILENAMES 

If  FILENAMES  -  ""  than  FILENAMES  -  FILS 


cla 

color  0,7 

locato  1,1  :  print 
locato  2,1  ;  print 
color  7,0  :  print 

locato  2,76:  color 
locato  3,1  ;  print 
color  7,0  :  print 

color  0,7  :  print 

color  7,0  :  print 

loeata  3,76:  color 
locato  4,1  :  print 
color  7,0  :  print 

loeata  4,76:  color 
locato  5,1  :  print 
color  7,0  :  print 

locato  5,76:  color 
loeata  6,1  :  print 
color  7,0  :  print 

locato  6,76:  color 
loeata  7,1  :  print 
colw  7,0  I  print 
loeata  7,i  :  color 
color  7,0 

loeata  12,1:  print 
whila  VS  - 
VS  -  INXIYS 
wond 


0,7  ;  print  "  ■ 

If  « • 

■*  INSERT  DISKETTE  WITH  POSITION  FILE  ■; 

■  ■;DESCS" 

■  IN  DRIVE  D" 

0,7  ;  print  ■  " 

II  II  • 

I 

m 

0,7  :  print  ■  " 

«  a* 

■  LUVE  THE  QB-SYSTEM  DISKETTE  IN  DRIVE  A: 

0,7  :  print  ■  " 

N  M  a 

r 
m 

0,7  :  print  "  " 

IB  IB  a 

P 

m 

0,7  :  print  " 

■HIT  ANY  KEY  NHEN  YOU  ARE  READY* 


« 


If  PONER  >  1  than  21 
26  opan  ■I*,#l,"AtRESTUP.CM(" 


TNOraiiort 
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Input  #1,OSTOP$ 
input  /l,TSTOP$ 
input  /l.IHTV 
input  #l,OESC$ 
input  #1,0RIVE$ 
closa  #1 

I»(y$  -  FN  DA(:S(DATE$) 

riL$  -  MID$(DMy$,4,3)  +  LErr${DMy$.2)  ♦  RIGHT$(DKy$,2)  +  "0“ 

FILENAMES  -  FILS 
goaub  27 
2S  cla 

color  0,7 

locata  10,20  :  print  ■■  ■ 

locata  11,20  :  print  "  PREPARING  DISK  FOR  WRITING  ■ 

locata  12,20  :  print  "  " 

color  7,0 

•  OPEN  DUMMY  FILE  WHICH  WILL  BE  KILLED  LATER 

'  TO  BE  ABLE  TO  CLOSE  FILES  IF  DISK  IS  FULL  ERROR  OCCURS 

cloaa  #3 

opan  "0«,#3,DRIVES+"DOMMY.CAR« 

•  WRITE  2401  BYTES  TO  THIS  FILE 

for  JJ  -  1  to  100 

writa  #3,*BBBBBBBBBBBBBBBBBBBB« 
naxt  JJ 
cloaa  #3 

•  OPEN  ERROR  COMMUNICATION  PILE  ON  #3 
opan  DRlVES-t-oERROR.CAR''  for  appand  as  t3 

fopan  <•  1 

■  OPEN  A  SEQUENCIAL  FILE,  NAMED  "DESCS*  ON  CHANNEL  1 

'  TO  READ  POSITIONS 

Opan  ''I",#l,DRIVES-*-OESCS 
input  in  ,  NUMBER 
Input  #1  ,  DAYS 
for  N  -  1  to  NUMBER 
input  #1  ,  POSTS (N) 

Input  #1  ,  ELPOSTS(N) 
input  #1  ,  X(N) 
input  #1  ,  Y(N) 
input  #1  ,  TETA(N) 
input  #1  ,  A2IN(N) 
input  #1  ,  H(N) 
input  #1  ,  RAM(N) 
input  #1  ,  EPS(N) 

Input  01  ,  SCREENS (N) 
input  #1  ,  ELSCRS(N) 
input  01  ,  POSCODES(M) 
naxt  N 
cloaa  01 

•  OPEN  A  SEQUENCIAL  DATA  OUTPUTFILE,  NAMED  ■FILENAMES* 

'  OK  CHANNEL  2 

Cloaa  02 

opan  DRIVBS4-F1LENAMES  for  appand  aa  02 
It  POWER  •  0  than  42 
If  TEST  •  1  than  34  also  47 

•  DISPLAY  CURRENT  PARAMETERS 
29  If  INTV  >•  1  than  32 

els 

color  0,7 


TNOr«|M(t 


nge 

C9 


locata  9,20  :  print  ■  * 

locata  10,20:  print  ■*  * 

locata  11,20:  print  ■  TIMING  PARAMETERS  NOT  DEFINED  YET  ■ 

locata  12,20:  print  ■  * 

locata  13,20:  print  "  * 

locata  20,20  :  color  7,0  :  print  "HIT  ANY  KEY  WHEN  YOU  ARE  READY" 
whila  V$  -  "« 

V$  -  INKEYS 
wand 
goto  47 

LENG  -  LEN(TSTARTS) 
it  LENG  >-  8  than  32 
for  I  -  1  to  8-LENG 

TSTARTS  -  TSTARTS  ♦  "0" 
naxt  I 

MIOS (TSTARTS, 3,1)  - 
MIOS (TSTARTS, 6,1)  - 

32  cla 

color  0,7 

locata  1,5  :  print  " 

locata  2,5  :  print  ■  CURRENT  TIMING  PARAMETERS  SETTINGS 

locata  3,5  :  print  " 

locata  6,5  :  print  "START  DATE"  TAB (30)  ■:"  ;  DSTARTS  :  print 
locata  8,5  :  print  "STOP  DATE"  TAB(30)  ;  DSTOPS  :  print 

locata  10,5:  print  "START  TIME"  TAB (30)  *:*  ;  TSTARTS  :  print 
locata  12,5:  print  "stop  TIME"  TAB (30)  ;  TSTOPS  :  print 

locata  14,5:  print  "SCAN  INTERVAL"  TAB(30)  ;  IHTV  ■  (sin)" 

locata  16,5:  print  "COORDINATE  FILENAME"  TAB(30)  •:■  ;  DESCS 
locata  18,5:  print  "DATA  STORAGE  FILENAME”  TAB(30)  FILENAMES 

locata  24,5:  print  "HIT  ANY  KEY  TO  CONTINUE"; 
whila  vs  -  «" 

V$  >  INKEYS 
wand 
goto  47 

'  START  OF  MEASUREMENTS 

'  CHECK  IF  THE  REMOTE  CONTROL  IS  DISCONNECTED, 

'  BY  READING  THE  MIRROR  POSITION  TWICE. 

'  IF  NOT  CHANGED  AFTER  1  SECOND,  MIRROR  IS  STATIC. 

34  ROTO  -  IRP(1830) 
for  TELL  -  1  to  3 
PPS  -  TIMES 
Whila  TIMES  <-  PPS 
wand 

naxt  TELL 

if  (INP( 1820) -ROTO)  -  0  than  37 
cla 

color  0,7 

locata  10,20  :  print  "  " 

locata  11,20  :  print  ”  DISCONNECT  THE  REMOTE  CONTROL  " 

locata  12,30  :  print  ■  ■ 

color  7,0 

locate  16,30  :  print  "HIT  ARY  KEY  WHEN  READY” 

whila  vs  - 
vs  >  INREYS 
wand 

•  CRECX  IF  A  TESTRDN  SROOLD  BE  PERPtHDOD 

37  if  TEST  -  1  than 
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TSTART$  -  time; 
goto  46 
end  If 

•  CHECK  IF  TIMING  PARAMETERS  ARE  SET 

if  PARSET  -  1  then  41 
39  ciB 


color  0,7 

locate  8,30  :  print  * 

locate  9,20  :  print  ■*  DEFINE  TIMING  PARAMETERS  FIRST 
locate  10,30:  print  ■* 
color  7,0 

locate  15,20:  print  "HIT  ANY  KEY  TO  CONTINUE" 
while  V$  -  •« 

V$  -  INKEY$ 
wend 


goto  47 


N 


■ 


•  CHECK  FOR  IMMEDIATE  START  OF  THE  MEASURBIENT  CYCLE 

41  if  dstart;  •  date;  then 

if  TSTART;  -  "ACTUAL  TIME"  then 

tstart;  -  time; 

goto  45 
end  if 
end  if 


•  HAIT  FOR  START  MOMENT 

42  LENG  -  LEK(TSTART$) 
if  LENG  <  8  then 
for  I  «  1  to  8 -LENG 

tstart;  •  tstart;  +  "o" 
next  I 

mid; (tstart;, 3,1)  -  ":" 
mid;(tstart;,6,i)  - 
end  if 


cls 

color  ( 

>,7 

locate 

1,1  •• 

print 

W 

locate 

2,1  : 

print 

« 

locate 

3,1  : 

print 

m 

locate 

6,17  : 

print 

m 

locate 

7,17  ; 

print 

"  ACTUAL 

data 

locate 

8,17  : 

print 

m 

locete 

16,17: 

print 

m 

locate 

17,17: 

print 

m 

Data 

locate 

18,17: 

print 

m 

locate 

19,17: 

print 

m 

locate 

20,17: 

print 

m 

color  ' 

',0 

locate 

10,50: 

print 

dstart; 

locate 

13,51: 

print 

tstart; 

locate 

10,30: 

print 

date; 

locate 

13,31: 

print 

time; 

if  date;  -  OSTARt;  then 

if  Tin;  •  tstart;  then 

goto  45 

eleelf  TIME;  >  TSTARt;  then 
gosub  37 

locate  13,51:  print  TSTARTS 
end  if 

elnelf  DATKS  >  DSTARt;  then 
gosuh  37 

locate  10,50:  print  DSTARTS 
end  if 


WAITING  FOR  THE  BEGIN  OF  THE  MEASUR 

"  :  locate  6,47  :  print  " 

"  :  locate  7,47  :  print  "  START  DAT 

"  :  locate  8,47  :  print  " 

N 

will  be  Stored  on  file  " 

m 

"  ;  DRIVES-fFILS  ;  " 
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it  RIGHT$(TIME$,2)  -  •‘25*  than 
gosub  25 
end  If 
goto  44 

45  ONEXTS  -  DSTARTS 
TNEXT$  -  TSTARTS 

46  If  PR  -  0  then 

els 

print  "BEGIH  or  CXCLE  «;  TIMES 
TMULS  -  TIMES 
end  If 

for  N  •  1  to  HUMBER 
locate  25,1  :  print  ■■ 

locate  25,1  !  print"  READY  .  COIMG  FOR  POSITIOM  ■; 

•  START  OF  MEASUREMENT  CYCLE 
locate  25,41  :  print  N; 

•  START  SCANNING  MIRROR,  OPEN  THE  HATCH  AND  UNLOCK 
PORTS  -  2 

gosub  76 

<  WAIT  3  SECONDS  TO  OPEN  THE  HATCH  COMPLETELY, 

if  N  <»  1  then 
TELL  -  0 
PPS  -  TIMES 
while  TELL  <  4 
TELL  -  TELL  +  1 
while  TIMES  <■  PPS 
wend 

PPS  -  TIMES 
wend 
and  if 

'  BRING  THE  SENSOR  HEAD  TO  POSITION  N 

DAC  «  0 

VX  »  X(N) 

gosub  85 

DAC  •  1 

VY  -  Y(N) 

gosub  84 

gosub  86 

’  SENSOR  HEAD  REACHED  POSITION  N 

locate  25,1  :  print  "REACHED  POSITION  "; 

locate  25,18  :  print  M  " .  SCANNING  NOW .  " 

•  LOCK  THIS  POSITION 

PORTS  -  0 

gosub  76 

•  CONTROL  REGISTER  1820  IS  USED  AS: 

•BITS  *76"  5  *4"  3  *2  1*0 

•  *  FREE  *  POWER  FAILURE  *  RAIN  *  POWER  FAILURE  *  MIRROR  *  MIRROR 

•  *  *  MAINS  *  GAUGE*  CARABAS  *  POSITI«l  *  TRIGGER 

TIJOS(N)  -  TIMES 
for  COUNT  •  1  to  4 

•  WHEN  ENTERING  THIS  LOOP,  WAIT  FOR  NIRRMt  POSITKHI  4 

•  THAT  IS  WHEN  THE  8-12  UN  DETECTOR  LOOKS  'PO  THE  OUTSIDE 

•  WORLD  FOR  CLAMPING  THE  3-S  UM  DETECTOR  CW  THE  REARSIDE 
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•  SO'JRCE. 

'  DETECT  POSITIVE  EDGE  OF  ‘MIRROR  IN  POSITION*  PULS 

SO  wait  1820,1,1 

wait  1820,1,0 

MIRROR  -  INT  ((INP(1820)  and  7)  /2  +  1)  +  2 
if  MIRROR  >  4  then 
MIRROR  •  MIRROR  -  4 
end  if 

if  COUNT  >-  2  then 
goto  52 

elseif  MIRROR  <>  4  then 
goto  50 
end  if 

•  READ  VOLTAGE  OVER  Pt  RESISTORS 
52  out  1813,4 

out  1814,0 

wait  1812,128,0  •  WAIT  FOR  CONVERSION  READY 

VPT(N, MIRROR)  -  INP(1813)  256*INP(1814) 

'  DETECT  NEGATIVE  EDGE  OF  'MIRROR  IN  POSITION'  PULS 

wait  1820,1,0 
wait  1820,1,1 

'  READ  INPUT  VALUE  FOR  BOTH  DETECTORS: 

'  DAC  ”  2  DETECTOR  SIGNAL  3-5  MICRON 

'  DAC  -  3  DETECTOR  SIGNAL  8-14  MICRON 

out  1813,2 
out  1814,0 

wait  1812,128,0  '  WAIT  FOR  CONVERSION  READY 

V(N,1, MIRROR)  -  INP(1813)  ♦  256«INP{1814) 
out  1813,3 
out  1814,0 

wait  1812,128,0  '  WAIT  FOR  CONVERSION  READY 

V(N, 2, MIRROR)  -  INP(1813)  +  256*INP(1814) 
next  COUNT 
for  K  -  1  to  4 

if  VPT(N,K)  >  32767  then  VPT(N,K)  -  VPT(N,K)  -  65536! 

if  V(N,1,K)  >  32767  then  V'N,1,K)  -  V(N,1,K)  -  65536! 

if  V(N,2,K)  >  32767  then  V(N,2,K)  -  V{N,2,K)  -  65536! 

next  K 
next  N 

'  RETURN  TO  THE  FIRST  POSITION, 

'  STOP  THE  MIRROR  AND  CLOSE  THE  HATCH 

locate  25,1 

print  "STOP  MIRROR,  CLOSE  HATCH  AND  RETURN  TO  FIRST  POSITION .  ";TIMES 

PORTB  «  3 
gosub  76 
DAC  «  o 
VX  -  X(l) 
gosub  85 
DAC  •  1 
VY  -  Y(l) 
gosub  84 

'  WAIT  HERE  UNTIL  SENSOR  HAS  REACHED  THE  STARTING 

'  POSITION  AND  LOCK  IT. 

gosub  86 


END 


O  P 


MEASURMENT 


CYCLE 
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'  START  CONVERSION  OF  DATA 

•  DETERMINE  CALIBRATION  CONSTANTS  A(J)  AND  B(J)  . 

•  MEASURED  VOLTAGES  OVER  THE  PtlOO  SENSORS  VI>T(N,I) 

•  MUST  BE  KNOVm  AT  THIS  POINT,  AS  NELL  AS  THE  DETECTOR 

•  VOLTAGES  V(N,J,I)  FOR  THE  CALIBRATION  SOURCES. 


locate  25,1 

print  «  CALCULATING  TEMPERATURES  NOW .  -TIMES 

for  N  -  1  to  NUMBER 
•for  J  -  1  to  2 

J  -  2  *  ONLY  10(1  DETECTOR  IN  USE 

if  J  -  2  then  54 

■  PUT  THE  DATA  IN  THE  CORRECT  ORDER  FOR  DETECTOR  J«1 


HELPl  -  V(H,J,3) 

HELP2  -  V(N,J,4) 

HELP3  -  V(N,a,l) 

HELP4  •  V(H,J,2) 

V(H,J,1)  -  HELPl 
V(N,J,2)  -  HELP2 
V(N,J,3)  -  HELPl 
V(H,J,4)  •  HELP4 

*  DETERMINE  THE  CALIBRATION  CONSTANTS  A(J)  AND  B(J) 

54  gosub  15 

E(N,J,4)  -  B<J)*V(N,J,4)  +  A(J) 


'  USE  LOOK-UP  TABLE  TO  FIND  THE  CORRESPONDING 

'  TEMPERATURES . 

for  M  »  1  to  199 

if  E(N.J,4)  >-  ET{J,K)  end  E(N,J,4)  <«  ET(J,M+1)  then 
TR(N,J,4)  -  TT(M) 
goto  56 

elseif  H  <  199  then 
90to  55 
end  if 

'  E(N,J,4}  IS  OUTSIDE  THE  TABLE-RANGE: 

>  WRITE  TR(N,J,4)  -  0  TO  OUTPUT 

TR<H,J,4)  -  0 
goto  20 
55  next  M 


'  THE  TEMPERATURE  FOUND  TR(N,J,4)  LIES  BETWEEN 

■  TWO  NODES  TT(H)  SEPARATED  BY  0.5  X. 

•  ASSUMING  A  LINEAR  DEPENDENCE  OF  THE  IRRADIANCE 

•  WITH  RESPECT  TO  TEMPERATURE,  IN  BETWEEN  THE  2  NODES, 

'  A  MORE  ACCURATE  VALUE  CAN  BE  OBTAINED  BY  LINEAR 

'  INTERPOLATION. 


56  TR(M,J,4)  -  TT(M)  +  (TT(M+1)-TT(M))«(E(N,J,4)-ET{J,M))/(ET(J,M+1)-ET(J,M) 

TR(N,J,4)  »  TR(H,J,4)  -  273 

20  'NEXT  J  NEEDED  IF  2  DETECTORS  ARE  IN  USE 

if  DIS  •  0  then  60 

•  PRINT  RESULTS  DURING  RUNTIME 

Iprint  "RECORDING  TIME*  TAB(25)  TIJD$(N) 

Iprint  "MEASUREMENT  POINT"  TAB(2S)  N 

Iprint  :  Iprint  "SOURCE*  TAB(30)  "1"  TAB(45)  "2"  TAB(60)  "3" 
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Iprlnt  ■ - 

Iprint  TAB(3)  "Pt  -  RESISTANCE”  TAB(28)  RES(l)  TAB(43)  RES(2)  TAB(58)  RES 
Iprint  TAB(3)  "Pt  -  VOLTAGE"  TAB(28)  VPT(N, 1) ;TAB(43)  VPT(H,2) ;TAB(58)  VP 
Iprint  TAB(3)  "Pt-TEMPERATURE“  TAB(28) ;TS(l)-273  TAB(43) ;TS(2)-273  TAB(58 
Iprint  :  Iprint  TAB(3)  "DETECTOR  VOLTAGE  3-5"  TAB(28) ;V(N, 1, 1)  TAB(43);V( 
Iprint  TAB(3)  "ENERGY  IN  3-5"  TAB(28) ;E(N, 1, I)  TAB(43) ;E(N, 1, 2)  TAB(58) ; 
Iprint  :  Iprint  TAB(3)  "DETECTOR  VOLTAGE  8-14"  TAB(28} ;V(N, 2, 1)  TAB(43);V 
Iprint  TAB(3)  "ENERGY  IN  8-14"  TAB(28) ;E(H,2, 1)  TAB(43) ;E(H,2,2)  TAB(58) 
Iprint  ;  Iprint  "CALIBRATION  PARAMETERS"  TAB(32)  "3-5  DM"  TAB(62)  "8-14  D 

Iprint  ■ - - - 

Iprint  TABC3)  "CONSTANT  B>  TAB(30)  B(l)  TAB(60)  B(2) 

Iprint  TAB(3)  "CONSTANT  A"  TAB(30)  A(l)  TAB(60)  A(2) 

Iprint  TAB(3)  "CORRELATION  COEFFICIENT"  TAB(30)  R(l)  TAB(60)  R(2) 

Iprint 

Iprint  "DETECTOR  VOLTAGE"  TAB(30)  V(N,  1,4)  TAB(6(  ’(M,2,4) 

Iprint  "MEASURED  TEMPERATURE"  TAB(30)  TR(N,1,4)  T,  j(60)  TR(N,2,4) 

Iprint 

Iprint 

Iprint 

60  next  N 

'  CONVERSION  COMPLETED 

■  WRITE  DATA  TO  DISK 

'  IF  A  TESTRUN  HAS  PERFORMED,  THE  PROGRAMME 

'  RETURNS  TO  THE  MAIN  MENU. 

•  DURING  AUTOMATED  OPERATION  THE  TIMING  PARAMETERS 

•  DETERMINE  THE  TIME  BEHAVIOUR. 

•  WRITE  DATA  TO  THE  FILE  "FILENAMES"  THROUGH  CHANNEL  #2 

61  print  #2,OESC$ 

print  #2, USING  "f##";NUMBER 
print  #2, USING  "\  \";DNEXT$ 

for  N  >  1  to  NUMBER 

print  #2, USING  "\  \";TIJD$(N) 

■When  5n  detector  is  in  use  iprint  F2, USING  "+//##. #P”;TR(N, 1,4) 
print  #2, USING  "+####.#/";TR(N,2,4) 
next  N 

if  TEST  -  0  then  63 

DAC  -  0 

VX  -  X(l) 

gosub  85 

DAC  -  1 

VY  -  Y(l) 

gosub  84 

gosub  86 

locste  3,1  :  print  "END  OF  CYCLE  ";  TIMES 
TSTS  “  TIMES 
AA  •  0 

IF  VAL(MIDS(TSTS,7,2))  >-  VAL(MIDS(TNULS, 7, 2) )  then 
AA«1 
end  if 

DIF  -  (VAL(MIDS(TSTS,1,2))-VAL(M1DS(TNDL$,1,2)))*60  +  (VAL(MIDS  (TSTS,  4 , 2)  ) - 
locate  5,1  :  print  "MINIMUM  SCAN  INTERVAL  "; 
color  0,7  s  print  "  ";Dir; 
color  7,0  :  print  "  MINUTES" 

locate  25,1:  print  "HIT  ANY  KEY  TO  RETURN  TO  THE  MAIN  MENU"; 
while  VS  -  ■" 

VS'INXEYS 
wend 
goto  47 
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'  CHECK  FOR  STOP  TIME  AND  DATE 

63  if  DATES  >-  DSTOPS  and  TIMES  >-  TSTOPS  then  36 

•  CALCUIATION  OF  NEXT  START  TIME  :TNEXTS 

TOUDS  -  TNEXTS 
H  -  VAL(MIDS(TNEXT$,4,2)) 

H  -  VAL(MIDS(TNEXTS.1,2)) 

M  «  M  +  INTV 
while  M  >•  60 
H  -  H  +  1 
M  -  M  -  60 
wend 

if  H  >-  24  then 
FAC  -  1 
H  •  H  -  24 
end  if 

if  H  <  10  then 

HS  -  "O"  +  MIDS(STRS(H) ,2,2) 
goto  66 

else 

HS  -  MIDS(STRS(H) ,2,2) 
end  if 

66  if  M  <  10  then 

MS  -  "O*  +  MIDS(STRS(M) ,2,2) 
goto  67 
else 

MS  -  MIOS(STRS(M) ,2,2) 
end  if 

67  TNEXTS  -  KS  +  +  MS  +  ":00" 

'  DETERMINE  NEXT  START  DAY  IF  OLD  ONE  IS  EXPIRED 

'  (I.E.  "FAOl") 

if  FAC-0  then  75 
FAC  -  0 

DAY  -  VAL(NIDS(DNEXT$,4,2)) 

MONTH  »  VAL(MIDS(0NEXTS,1,2)) 

YEAR  -  VAL(MI0S(DNEXTS,7,4)) 

NDAY  -  DAY  +  1 

on  MONTH  goto  68,69,68,70,68,70,68,68,70,68,70,68 

68  DAY  -  31 
goto  71 

69  DAY  -  28 

X  -  YEAR  NOD  4 

IF  X  -  0  then  DAY  -  29 

goto  71 

70  DAY  -  30 

71  if  NDAY  <•  DAY  then 

goto  72 

else 

NDAY  -  NDAY  -  DAY 
MONTH  -  MONTH  +  1 
end  it 

if  MONTH  <-  12  then 
goto  72 

else 

MONTH  -  1 
YEAR  •  YEAR  4  1 
end  if 

72  if  NDAY  <  10  then 

DAYSTS  •  "0"  +  MIDSCSTRS (NDAY) ,2,2) 
goto  73 

else 
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DAYSTS  -  MID$(STR$(NDAy) ,2,2) 
end  it 

73  if  MONTH  <  10  then 

MONTHS  -  "O*  +  M1D$(STHS(M0NTH),2,2) 
goto  74 

else 

MONTHS  -  HID$(STR$ (MONTH) ,2,2) 
end  if 

74  YEARS  •  HIDS(STR$(YEAR) ,2,4) 

DNEXTS  -  MONTHS  ♦  ♦  DAYSTS  +  ♦  YEARS 

87  OMYS  •  FN  DAGS (DNEXTS) 
close  #2 

riLS  -  MIDS(DMYS,4,3)  +  LEFTS(DMYS,2)  ♦  RIGHTS(0MYS,2)  +  «C« 
FILENAMES  -  FILS 

open  DRIVES-fFILENAMES  for  append  as  #2 

if  TNEXTS  »  «00;00:00"  end  DATES  <  DNEXTS  then 
goto  88 
and  if 

75  if  TIMES  >  TNEXTS  or  DATES  >  DNEXTS  then 

gosub  27 

TNEXTS  -  TSTARTS 
DNEXTS  -  DSTARTS 
if  TNEXTS  -  *00:00:00"  then 
goto  87 
end  if 
and  if 


88  if  PR  >  1  then  19 


DISPLAY  SELECTED  DATA  CHANNELS 

PRINT  RESULT  KITHOUT  REFRESHING  THE  SCREEN 


'  DISPLAY  TIMING  PARAMETERS 

77  PR  -  0 
els 

color  7,0 

locate  25,1:  print  "Fl-DISPLAY  DATA  CHANNELS 
color  0,7 
locate  1,1 
locate  2,1 
locate  3,1 
locate  6,3 

locate  7,3  :  print  ■  ACTUAL  DATA 
locate  8,3 
BEGINS 
locate  16,1: 
locate  17,1: 
locate  18,1: 
locate  19,1: 
locate  20,1:  print 

78  color  7,0 
locate  10,6 
locate  10,36 


print  " 
print  " 
print  ■ 
print  " 
print  ■ 
print  " 
DRIVES  ♦  FILS 
print  " 
print  * 
print  * 
print  ■ 


F6-CHANGE  DATA  DISKETTE 


WAITING  FOR  BEGIN  OF  NEXT  SCAN 


locate  6,33 
locate  7,33 
locate  8,33 


print 

print 

print 


NEXT  SCAN 


Data  will  bs  stored  on  fils 
BEGINS  ;■ 


print  DATES 
print  DNEXTS 
locate  10,64:  print  DSTOPS 
locate  12,7  :  print  TIMES 
locate  12,37:  print  TNEXTS 
locate  12,65:  print  TSTOPS 


Xey  (1)  on 
Key  (2)  on 


THE  PARAMETER  "FAC*  CONTROLES  THE  CHANCE  OF  DATE, 

SO  THAT  THE  CHECK  FOR  THE  NEXT  START  TINE  CAN  BE  DC»(E 
CORRECTLY.  CHECK  FOR  MAIN  POWER  FAILURE  WHILE 
WAITING  FOR  THE  NEXT  HEASURDfEMT  CYCLE 
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kay  (3)  on 
kay  (6)  on 

if  TIMES  >-  TNEXTS  and  DATES  >-  DMEXTS  then 
kay  (1)  off 
kay  (2)  off 
kay  (3)  off 
kay  (6)  off 
qoto  46 
alsa 

gosub  25 
goto  78 
and  if 


DATA 


PUT  AN 
DRIVE  D 


DOTY  DATA  DISKETTE  IN  •; 


print  • 

print  "HIT  ANY  KEY  WHEN  YOU  ARE  READY" 


*  CHANGE 

79  cloaa 

kill  ORIVES+"DUMMY.CAR" 
if  ERDE  -  0  then  kill  DRIVES+"ERROR.CAR" 
cls 

color  0,7 

locate  9,20  :  print 
locate  10,20:  print 
locate  11,20:  print 
color  7,0  :  print  " 
color  0,7  :  print  " 
locate  12,20:  print 
locate  13,20: 
color  7,0 
locate  20,20: 
while  VS  -  "« 

VS  "  INKEYS 
wend 

DRIVES  •  "D:" 

open  "o",/l,"A:RESTUP.CAR" 
write  #l,DSTOPS 
write  #l,TSTOPS 
write  #1,INTV 
write  #l,OESCS 
write  #1, DRIVES 
close  tl 
cls 

color  0,7 

locate  2,1  :  print 
locate  3,1  :  print 
locate  4,1  :  print 
color  7,0 
8  VS  •  INXEYS 
if  VS  -  "n' 
goto  82 
elseif  VS 
goto  81 
and  if 
cls 

color  0,7 
locate  1,9 
locate  2,5 
locate  3,5 
HILFES  >  FILENAMES 
locate  5,5  :  print  "  FORMAT  :  color  7,0 
locate  7,5  :  color  0,7  :  print  "  DEFAULT  *; 
locate  10,5:  color  0,7  :  print  "  INPUT  *; 
line  input  FILENAMES 

if  FILENAMES  •  ""  then  FILENAMES  -  HILFES 


DISKETTE 


DO  YOU  WANT  TO  CHANGE  THE  DATA  FILENAME  (Y/N) 


OR  VS  -  "N"  then 
>  "y"  and  VS  <>  "Y"  then 


print 

print 

print 


GIVE  THE  DATA  FILENAME 


print  "  MMMDOYYC 
color  7,0  :  print 
color  7,0  :  print 


LAST  GIVE 


82  cls 
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locate  10,20:  color 
locate  11,20:  print 
locate  12,20:  print 
color  7,0 

open  «D:"+FILENAMES 


0,7  :  print  " 

x  PREPARING  DISK  FOR  WRITING 

m 

tor  append  as  02 


COPY  THE  POSITION  FILE  TO  THE  HEW  DATA  DISKETTE 


open  «OX,#l,"D:"+DESC$ 
print  #1  ,  USING  •000"  ;  NUMBER 
print  01  ,  USING  "\  \" 


for  H  » 

1  to 

NUMBER 

print 

01 

USING 

print 

01 

USING 

•\ 

print 

01 

USING 

"*0000 

print 

01 

USING 

"*0000 

print 

01 

USING 

"*0000 

print 

01 

USING 

"*0000 

print 

01 

USING 

"*0000 

print 

01 

USING 

"*0000 

print 

01 

USING 

"*0000 

print 

01 

USING 

"\ 

print 

01 

USING 

"\ 

print 

01 

USING 

"\ 

next  H 


DAYS 

\"  ;  POSTS (N) 

\*  ;  ELPOST$(N) 

X(H) 

Y(H) 

TETA(N) 

AZIM(H) 

H(N) 

RAN(H) 

EPS(H) 

;  SCREENS (N) 
;  ELSCRS(H) 

V"  ;  POSCODES(N) 


•  OPEN  dummy  file  WHICH  WILL  BE  KILLED  LATER, 

<  TO  BE  ABLE  TO  CLOSE  FILES  IF  DISK  FULL  ERROR  OCCURS 

close  03 

open  "O", #3, "0: DUMMY. CAR" 


•  WRITE  2401  BYTES  TO  THIS  FILE 

for  JJ  ■  1  to  100 

write  03 ,  "DDDDDDDDDDDDDODDDDDD" 
next  JJ 
close  03 


■  OPEN  ERROR  COMMUNICATION  FILE  ON  P3 
open  "D: ERROR. CAR*  for  append  as  #3 

fopen  •  1 
return  77 

'  SUBROUTINES 

'  DISPLAY  DATA  DURING  RUNNING  OF  THE  PROGRAMME 

'  AFTER  A  SCAN  IS  COMPLETED  AND  THE  CONVERSION  IS 

■  TERMINATED,  A  MAXIMUM  NUMBER  OF  4  POSITIONS  CAN  BE 

'  DISPLAYED  ON  SCREEN. 

■  3  els 
TEL  -  0 
PR  -  1 
key  (1)  off 

SI  line  input  "GIVE  P08ITIWS  SEPARATED  BY  A  COMMA  (4  MAXIMUM)  POSIS 
ASTART  -  1 
HALT  •  0 
CRAM  -  1 

53  COmA  >  IRSTR(  ASTART  ,  POSIS  ,  ) 

if  COMMA  >  0  then 

COMMA  >  INSTR(  ASTART  ,  POSIS  ,  ""  ) 

HALT  *  1 

LEMGTK  «  COMA  4  1 
goto  SS 
end  if 

LINGTB  •  COmA  - 


1 
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58  CH(CHAN)  -  VAL(MID${  POSIS  ,  ASTART  ,  LENGTE  )) 
if  CH(CHAN)  <  1  or  CH(CHAN)  >  NUMBER  then 
cle 

print  "POSITION  »;CH(CHAN)  "HAS  NOT  BEEN  DEFINED,  TRY  AGAIN" 
print 
print 
print 
goto  51 
end  if 

if  HALT  -  1  then 
goto  18 

else 

ASTART  -  LENGTE  *  2 
CHAN  >  CHAN  -f  1 
if  CHAN  >  4  then 
CHAN  •  4 
goto  18 
else 
goto  S3 
end  if 
end  if 

19  if  TEL  >  0  and  TEL  <  15  then 
goto  17 
end  if 

18  els  •regulates  screen  refresh 

locate  2,1 
TEL  •  0 

print  — ■ — . — . — 

locate  3,25  :  print  "DATE  ";  :  print  DATE$ 

print  " 

locate  5,11  !  print  "|"  - - 

for  J  -  1  to  CHAN 

locate  S,J*17-5  !  print  •  POSITION  •;  :  print  CH(J) ; 
if  CH(J)  <  10  then 
print  SPC(I) 
end  if 
print  "I" 
next  J 

locate  «,l  3  print  " - 1" 

for  J  «  1  to  CHAN 

locate  6,J«17-5  :  print  " - 1" 

next  J 

locate  7,1  :  print  "TIME" 
locete  7,11!  print  "|" 
for  J  -  1  to  CHAN 

locete  7,J"17-5  :  print  •  3-5"  SPC(5)  "8-14  I" 

next  J 

locate  8,1  :  print  " - 1" 

for  J  -  1  to  CHAN 

locate  8,J"17-5  :  print  " - 1" 

next  J 
locate  9,1 

17  locete  94TEL,1  !  print  HID$(TOUD$,  l,  5)  •  JUST  PRINT  HOUR  AND  MINUTES 

locate  94TBL,11:  print  "|* 

for  J  •  1  to  CHAM 

locete  9+TEL,J«17-S  !  print  USING  ■#/#.FF";TR(CH{J) ,1,4) ; 
print  SPC(3); 

print  USING  "/##.dF";TR(CH(J),2,4) 
locate  94TIL,J*17411:  print  "I" 
next  J 

TEL  •  TEL  4  1 
locate  3S,1  I  print  ■ 

18  locate  3S,l  1  color  0,7  !  print  •  ACTUAL  TIME  •; 

color  7,0  i  print  ■  "iTlHSf;"  •; 
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color  0,7  ;  print  •  NEXT  SCAN  «; 

color  7,0  :  print  “  •.-TNEXTS; 

locate  25,59:  print  "Fa-TIMING  PARAMETERS*; 

key  (1)  on 

key  (2)  on 

if  right$  (TIMES, 2)  -  "25"  then 
gosub  25 
end  if 

if  TIMES  >-  TNEXTS  and  DATES  •  DNEXTS  then 
key  (1)  off 
key  (2)  off 
goto  46 

else 

key  (1)  stop 
key  (2)  stop 
goto  16 
end  if 
return 

•  CALIBRATION 


•  FIRST  THE  MEASURED  VOLTAGE  VPT(N,I)  OVER  THE  PtlOO 

•  SENSORS  IS  CONVERTED  TO  RESISTANCE  VALDES  'RES(I)  ' 

•  DEPENDING  ON  THE  IMPEDANCES  USED  IN  THE  ELECTRONIC 

•  CIRCUITS.  THIS  IS  A  LINEAR  OPERATION  THROUGH  A 

•  REGRESSION  CONSTANT:  'ALPHA' 

15  ALPHA  •  .013441 

OFFSET  <•  100.087 
for  I  •  1  to  3 

RES(I)  -  ALPHA  •  VPT(N,1)  ♦  OFFSET 
next 


'  NEXT  DETERMINE  IN  WHICH  INTERVAL  THE  RESISTANCE 

'  RES(I)  OF  CALIBRATION  SOURCE  I  IS  FOUND. 

'  K1  GIVES  THE  LOWER  BOUNDARY, 

for  I  •  1  to  3 
K1  -  1 

for  K  •  1  to  8 

if  RES(I)  »  CAL(1,K)  then 
K1  >  K 
end  if 
next  K 


'  NEXT  DETERMINE  THE  TEMPERATURE  OF  CALIBRATION 

'  SOURCE  I,  KNOWING  ITS  RESISTIVE  VALUE  RES(I)  ,  FROM: 

TS{I)  -  273!  ♦  CAL(3,K1)  ♦  (RES(I)  -  CAL(1,X1))  /  CAL(2,K1)  '  (K) 

next  I 


'  NEXT  USE  THE  LOOK-UP  TABLE  TO  DETERMINE  THE 

'  'APPARENT'  PUPIL  IRRADIANCE  FOR  CALIBRATION  SOURCE  I. 

for  L  >  1  to  3 
for  H  -  1  to  199 

if  TS(L)  >«  TT(H)  and  TS(L)  <-  Tr(N41)  then 
K(N.J,L)  -  ET(J,H) 
goto  12 

eleeif  N  <  199  then 
goto  13 

else 

goto  14 
end  if 

'  CALiraATKHI  NOT  POSSIBLE  BECAUSE  TS(L)  IS  OUT  OF 

'  THE  TABLE-RAMGE 

14  A(J)  *  0 
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B(J)  -  0 
return 
13  next  M 

•  THE  IRRADIANCE  FOUND  E(H,J,I)  LIES  BETWEEN  TWO  NODES 

•  CT(J,M)  SEPARATED  BY  0.5  K.  ASSUMING  A  LINEAR 

'  DEPENDENCE  OF  THE  IRRADIANCE  WITH  RESPECT  TO 

•  TEMPERATURE,  IN  BETWEEN  THE  2  NODES,  A  MORE  ACCURA7'E 

■  VALUE  CAN  BE  OBTAINED  BY  LINEAR  INTERPOLATION. 

12  E(N,J,L)  -  ET(J,M)  +  (ET(J,M+1) -ET(J,M) )  *  (TS(L)-TT(M) )  /  (TT(M+1) -TT(M) 
next  L 

•  CALCULATION  OF  THE  CALIBRATION  CONSTANTS  A(J)  AND 

•  B(J)  USING  THREE  CALIBRATION  SOURCES.  A(J)  AND  B(J) 

■  ARE  THE  RESULT  OF  A  LINEAR  REGRESSION  FIT  OF  PAIRS 

•  V(N,J,I)  AND  E(N,J,I).R  IS  THE  CORRELATIONCOEFFICIENT. 
SOMV  -  0 

SOMV2  -  0 
SOME  -  0 
SOMEV  -  0 
SONE2  -  0 
for  I  •  1  to  3 

SOMV  >  SOMV  *  V(N,J,I) 

S0MV2  -  S0MV2  *  V(N,J,I)‘2 
SOME  -  SOME  *  E(H,J,I) 

SOME2  »  S0HE2  *  E(N,J,I)‘2 
SOMEV  -  SOMEV  +  E(N,  J,  I)  *V(N,  J,  I) 
neict  I 

B(J)  -  (SOME*SOMV-3»SOMEV)  /  {SOMV*SOMV-3»SOMV2) 

A(J)  •  (SOME-B(J)*SOMV)  /  3 

R(J)  «  (A(J)*SOME-)’B(J)*SOMEV>(SOME‘2)/3)  /  (SOME2-(SOME*2) /3) 

■  NEXT  THE  MEASURED  VOLTAGES  OF  THE  UNKNOWN  SOURCE, 

■  CAN  BE  CONVERTED  TO  IRRADIANCE-  OR  APPARENT 

'  TEMPERATURE  VALUES. 

•  E(N,J,4)  -  B(J)  •  V(N,J,4)  +  A(J) 
return 


READ  A  SPECIFIED  CHANNEL  FROM  THE  A/D  CONVERTER 
PARAMETERS  USED: 

—  DAC 
~  VOLT 


A/D  CHANNEL  TO  BE  READ 
VOLTAGE  ON  THE  CHANNEL 


11  out  1S13,DAC 
out  1814,0 
welt  1812,128,0 

VOLT  -  INP(1813)  *  256*INP(1814) 
If  VOLT  >  32787  then 
VOLT  -  VOLT  -  65536! 
end  if 

on  OAC+l  goto  9,8 
return 

9  VOLT  -  VOLT  •  2.100428#  -  20401 
return 

8  VOLT  -  VOLT  •  1.994158#  -  20401 
return 


'  SELECT  CHANNEL 
'  START  CONVERSION 
'  WAIT  FOR  CONVERSION  READY 
’  READ  TWO  BYTES 

'  RANGE  -10  TO  -i-lO  VOLT 


>  CHANNEL  0  X  POSITION 
•  CHANNEL  1  Y  POSITION 


OUTPUT  A  VOLTAGE  TO  A  SPECIFIED  CHANNEL 
PARAMETERS  USED: 

~  DAC  -  0 
—  DAC  •  1 
“  VX 


OUTPUT  CHANNEL  FOR  AZINDTH 
OUTPUT  CHANNEL  F(»  ELEVATION 
VOLTAGE  ON  ASIIHITH  CHANNEL 
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•  —  VY  VOLTAGE  ON  ELEVATION  CHANNEL 

84  if  DAC  -  0  than  85 
VY  -  INT(VY) 

HIGHY  -  INT(VY/256)  *  HIGH  VY-BYTE 

LOWY  -  VY  -  J560HIGHY 
it  HIGHY  <  0  then 
HIGHY  -  HIGHY  4  16 

end  if 

out  1809, HIGHY  '  ACTIVATE  ELEVATION  MOTOR 

out  1808, LOHY 
return 

85  VX  -  INT(VX) 

HIGHX  -  INT(VX/256) 

LOWX  -  VX  -  256*HIGHX 
if  HIGHX  <  0  then 

HIGHX  -  HIGHX  *  16 
and  if 

out  1811, HIGHX 
out  1810, LOWX 
return 

•  TEST  IE  THE  SENSOR  HEAD  HAS  REACHED  THE  GIVEN 

•  POSITION  IF  NOT  WAIT  FOR  IT 

•  CHECK  FOR  POWER  FAILURE  WHILE  MOVING  THE  SENSOR  HEAD 

<  PARAMETERS  USED: 

'  —  VX  AND  VY 

•  —  VMX  AND  VMY 

86  XYSTOP  -  0 

While  XSTOP  <>  1  or  YSTOP  <>  1 
9oaub  25 
DAC  -  0 

if  XSTOP  <>  1  than 
gosub  11 
VMX  -  VOLT 

if  VMX  >  VX-5  and  VMX  <  VX+5  then 
XSTOP  "  1 
end  it 
end  if 
DAC  -  1 

if  YSTOP  <>  1  then 
gosub  11 
VMY  -  VOLT 

if  VMY  >  VY-5  and  VMY  <  VY+5  than 
YSTOP  -  1 
end  if 
end  if 
vend 

XSTOP  -  0 
YSTOP  -  0 
XYSTOP  -  1 
return 


76  out  1823,145 
out  1831,P(»(TB 
return 


START/5T0P  SCANNING  MIRROR  AMD  OPEN  HATCH 
LOCX/UNLOCK  SERVO  BYSTOI  TO  POSITION  THE  SENSOR  HEAD 
PARAMETERS  USED: 

PORTS  >  0  START  MIRROR,  OPEN  HATCH  AND  LOCK 

PORTS  >  1  STOP  MIRROR,  CLOSE  HATCH  AND  LOCK 

PORTS  >  2  START  MIRROR,  OPEN  HATCH  AND  UNLOCK 

PORTS  >  3  STOP  MIRROR,  CLOSE  HATCH  AND  UNLOCK 

’  WRITE  TO  CONTROLPORT  OF  825 


•  HIGH  VX-BYTE 


•  ACTIVATE  AZIMUTH  MOTOR 
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49  OIS  -  1 
return 
48  DIS  -  0 
return 


40  ERDE  -  1 

if  ERR  -  13  then 

TEXTS  -  ■  TXPE  MISMATCK  " 
goto  38 

elseif  ERR  *•  53  then 

TEXTS  -  *  BAD  FILE  KUM8ER  « 
goto  38 

eleeif  ERR  •  S3  then 

TEXTS  -  ■  FILE  HOT  FOTOD  " 
goto  38 

eleeif  ERR  -  57  then 

TEXTS  -  ■  DEVICE  I/O  ERROR 
goto  38 

elseif  ERR  •  61  then 
If  DRIVES«"A:*  then 

TEXTS  -  "  DISK  A+D  FULL  « 
goto  38 

elseif  DRIVES-*D:"  then 
goto  10 
end  If 

elseif  ERR  •  64  then 

TEXTS  -  «  BAD  FILE  NAME  « 
goto  38 

elseif  ERR  •  70  then 

TEXTS  -  *  DISK  WRITE  PROTECT  " 
goto  38 

elseif  ERR  71  then 

TEXTS  -  •  disk  HOT  READY  " 
goto  38 

elseif  ERR  •  72  then 

TEXTS  “  ■  disk  media  ERROR  " 
goto  38 
end  if 

’  WRITE  RECOVERABLE  ERROR  MESSAGE  TO  ERROR  FILE 

'  AHD  RESUME  EXECUTIOH  AT  THE  HEXT  STATEMEHT 

If  fopen  •  0  then 

open  DRIVES^-'ERROR.CAR”  for  append  as  #3 
fopen  -  1 
end  if 

write  #3, OATES. TIMES, TEXTS, ERR, ERL 
resume  next 

•  IRRECOVERABLE  ERROR  DETECTED 

'  CLOSE  THE  HATCH  AND  UNLOCK 

38  PORTS  >  3 
gosub  76 

•  DIRECT  SENSOR  HEAD  TO  THE  FIRST  POSITION 
OAC  •  0 

VX  -  X(l) 
gosub  85 
DAC  -  1 
VY  -  T(l) 
gosub  84 


KEYS  4  AND  5  HANDLE  THE  PRINTING  DURING  RUNTIME 

'  ABLE  PRINTING 

■  DISABLE  PRINTING 

ERROR  HANDLING 
CHECK  FOR  IRRECOVERABLE  ERRORS 
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•  START  TO  ESTABLISH  A  COMMUNICATION  LINK  TO  A  REMOTE 

•  PC  TO  PASS  ERROR  MESSAGES  (NOT  IMPLEMENTED  YET) 

5  if  fopen  -  0  then 

open  DRIVE$+" ERROR. CAR"  for  append  as  /3 
fopen  ”  1 
end  if 

write  #3, DATES, TIMES, TEXTS, ERR, ERL 


'  END  OF  PROGRAMME 

36  close 

PORTS  -  3 
qosub  76 

kill  ORIVES+"DUMMY.CAR« 
if  ERDE  -  0  then 

kill  DRIVES+"ERROR.CAR« 
end  if 
35  els 
close 
color  7,0 

30  it  POWER  •  0  then 

locate  10,15  :  print  "WAITING  FOR  MAINS  POWER  TO  RETURN. 
AST  -  1 
gosub  25 

if  POWER  «  1  then 
POWER  •  0 
goto  26 
end  if 
goto  30 
end  if 


locate  1,2  :  print  TEXTS 
BINDS  -  DRIVES  +  FILS 

locate  3,22  :  print  "  END  OF  PROGRAMME  ■ 

color  0,7 

locate  10,22:  print  "  " 

locate  11,22:  print  ”  Last  data  has  been  stored  on  * 

locate  12,22:  print  "  " 

locate  13,22:  print  •  ";EINDS;*  " 

locate  14,22:  print  "  " 

color  7,0 

locate  20,22:  print  "  HAVE  A  NICE  DAY  " 

end 


N 


'  CHECK  FOR  MAINS  POWER  FAILURE 

'  TO  USE  THIS  OPTION,  THE  PC  (AND  PREFREABLY  ALL 

'  EQUIPMENT)  MUST  BE  BACKED  UP  WITH  A  BATTERY  SVPPLY, 

'  TO  CONTINUE  OPERATION  FOR  A  SHORT  WHILE. 

25  MAIN  •>  INP(1820)  and  32 
if  MAIN  -  0  then 
POWER  -  1 
if  ASS  •  0  then 

open  "0«,#l,"A:POWER.FAL" 
write  #1, POWER 
close  dl 
ASS  -  1 
end  if 
AST  -  0 
return 
else 

POWER  -  0 
ASS  -  0 

if  PR  >  1  and  POWER  -  0  than 
PR  >  0 
and  if 
end  if 
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•  MAIN  -  32  :  MAINS  POWER  FAILURE  DETECTED 

ERDE  -  1 

TEXTS  -  "  MAINS  POWER  FAILURE  " 
if  AST  -  1  then 
AST  -  0 
return  30 
end  if 

open  *0",#1,"A:P0WER.FAL" 
write  #1, POWER 
close  PI 
return  38 


■  CHANGE  FROM  DISK  DRIVE  D  TO  A  FOR  WRITING  DATA 
10  kill  "DrDUMMY.CAR" 

close 

if  ERDE  -  0  then 
kill  *D: ERROR. CAR« 
end  if 
ERDE  -  0 
DRIVES  -  "Ai* 

open  "0'',#1,"A:RESTOT.CAR" 
write  #l,DSTOPS 
write  pl.TSTOPS 
tnrite  PI, INTV 
write  Pl.DESCS 
write  PI, DRIVES 
close  PI 

•  THE  FILE  ON  DRIVE  A  IS  GIVEN  THE  SAME  NAME  AS  THE 

'  ORIGINAL  DATAFILE  WITH  THE  EXTENSION  OF  "C*  , 

■  AN  ABBREVIATION  OF  CARABAS 
open  "A!*+FILENAMES  for  append  as  P2 

■  COPY  THE  POSITION  FILE  TO  THE  NEW  DATA  DISKETTE 

'  System  disk  contains  position  file  ! 

open  "0",P1,"A:"+DESCS 

print  pl, USING  "PPP“;NUMBER 
print  Pl, USING  "\  \«;DAYS 


for  N  - 

1  to 

NUMBER 

print 

Pl  , 

USING 

"\ 

\-  ;  POSTS (N) 

print 

Pl  , 

USING 

*\ 

\" 

;  ELPOST$(N) 

print 

Pl  , 

USING 

■+PPPP.PP" 

X(N) 

print 

Pl  , 

USING 

-+PPPP.PP" 

Y(N) 

print 

Pl  , 

USING 

"+PPPP.PP" 

TETA(N) 

print 

Pl  , 

USING 

"+PPPP.PP" 

AZIM(N) 

print 

Pl  . 

USING 

"♦PPPP.PP" 

H<N) 

print 

Pl  . 

USING 

"+PPPP.PP" 

RAN(N) 

print 

Pl  , 

USING 

"+PPPP.PP" 

EPS(N) 

print 

Pl  . 

USING 

■\ 

\"  ;  SCREENS ( 

print 

Pl  . 

USING 

"\ 

\" 

;  ELSCRS(N} 

print 

Pl  , 

USING 

•\ 

\" 

POSCODE$(N) 

next  N 

<  OPEN  DUMMY  FILE  WHICH  WILL  BE  KILLED  LATER,  TO  BE  ABLE 

•  TO  CLOSE  FILES  IF  DISK  IS  FULL  ERROR  OCCURS 

close  P3 

open  "©".PS,  "A  I  DUMMY.  CAR" 

'  WRITE  2401  BYTES  TO  THIS  FILE 

for  JJ  -  1  to  100 

write  P3 ,  "AAAAAAAAAAAAAAAAAAAA" 
next 
close  P3 


OPEN  ERROR  COMMUNICATION  PILE  ON  P3 
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open  " A ;  ERROR .  CAR"  for  append  as  #3 

fopen  “  1 

TEL  -  0 

resume  61 

end 


'  MAKE  A  NEW  START  TIME  AS  HH:  00 :  00+N*INTV 

27  2H  -  VAL(LEFTS(TIMES,2)) 

ZM  -  VAL(MID${TIME$,a,2) ) 

Z  »  INT(ZM/INTV) 

SECT  -  60/INTV 

if  (ZH  -  23  and  ZM  >-  ( (SECT-1) "INTV) -1)  or  ZH  -  24  then 
goto  7 
end  if 

for  L  «  0  to  SECT-1 
if  L  -  Z  then 
ZM  -  (L+1)*1NTV 
end  if 

if  ZM  -  60  then 
ZMS  -  "00" 
elseif  ZH  <  10  then 

ZM$  -  "0"  +  MID$(STRS(ZM) ,2,2) 
else 

ZM$  -  MIDS(STRS(ZM) ,2,2) 
end  if 
next  L 

if  ZMS  •  "00"  then 
ZH  *  ZH  +  1 
end  if 

if  ZH  <  10  then 

ZHS  -  "0"  +  MI0S(STRS(ZH) ,2,2) 
else 

ZHS  -  MIDS(STRS(ZH) ,2,2) 
end  if 

TSTARTS  ”  ZHS  +  +  ZMS  +  ":C0" 

DSTARTS  “  DATES 
return 

'  MAKE  A  NEW  START  DATE 

7  TSTARTS  »  "00:00:00" 

DAY  -  VAL(MIDS(DATE$,4,2) ) 

MONTH  -  VAL(MID$(DATES,1,2)) 

YEAR  »  VAL(MIDS(DATES,7,4)) 

NDAY  -  DAY  +  1 

on  MONTH  goto  65,33,65,80,65,80,65,65,80,65,80,65 
33  DAY  •  28 

X  -  YEAR  MOD  4 
if  X  -  0  then 
DAY  -  29 
end  if 
goto  64 
80  DAY  -  30 
goto  64 
65  DAY  -  31 

64  if  NDAY  <-  DAY  then 
goto  62 
else 

NDAY  •  NDAY  -  DAY 
MONTH  -  MONTH  +  1 
end  if 

if  MONTH  >  12  then 
MONTH  -  1 
YEAR  •  YEAR  *  1 
end  if 
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62  if  NDAY  <  10  then 

DAyST$  -  "0"  +  MID$(STRS(HDXV) ,2,2) 
goto  59 
end  if 

DAYST$  -  MI0S(STR$(NDAY),2,2) 

59  If  MONTH  <  10  then 

MONTHS  -  "0"  +  MIDS(STRS (MONTH) ,2,2) 
goto  57 
end  if 

MONTHS  -  MIDS(STRS(M0NTH),2,2) 

57  YEARS  «  MIDS(STRS(YEAR) ,2,4) 

DSTARTS  •  MONTHS  +  +  DAYSTS  +  +  YEARS 

return 
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MAJt3090P 

26 

04-01-1990 

00:00:04 

>5.59 

+5.75 

00:00:17 

+9.64 

+10.04 

00:00:26 

+8.38 

+9.19 

00:00:34 

+10.11 

+9.41 

00:00:42 

+14.15 

+14.43 

00:00:47 

+22.48 

+22.47 

00:00:59 

+5.40 

+4.15 

00:01:06 

+5.38 

+4.34 

00:01:14 

+5.36 

+4.23 

00:01:21 

+5.22 

+4.41 

00:01:26 

+5.50 

+4.32 

00:01:33 

+7,21 

+4.70 

00:01:42 

+7.18 

+6.52 

00:01:49 

+8.68 

+6,97 

00:01:57 

+5.99 

+6.02 

00:02:05 

+6.08 

+5.45 

00:02:12 

+5.50 

+5.52 

00:02:22 

+7.40 

+6.93 


00:02:29 

+9.15 

+9.29 

00:02:39 

+9.01 

+9.33 

00:02:49 

+11.69 

+9.83 

00:02:56 

+7.02 

+2.82 

00:03:06 

+7.03 

+3.26 

00:03:18 

+8.33 

+8.96 

00:03:25 

+10.63 

+10.78 

00:03:32 

+11.85 

+11.12 
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04-01-1990,00:05:00,  49 
-24.5,  5 

+0.0,  2 
+1029.4,  49 
+88.0,  98 
+283.7,  49 
+0.0,  49 
+2.9,  48 
+0.0,  4 

04-01-1990,00:10:00,  52 
-24.5,  1 

+0.0,  1 
+1029.4,  52 
+88.7,104 
+283.6,  52 
+0.0,  52 
+3.3,  52 
+0.0,  4 

04-01-1990,00:15:00,  52 
-24.5,  3 

+0.0,  4 

+1029.4,  52 
+84.6,104 
+283.9,  52 
+0.0,  52 
+2.9,  52 
+0.0,  4 

04-01-1990,00:20:00,  52 
-24.5,  4 

+0.0,  1 
+1029.4,  52 
+87.4,104 
+283.5,  52 
+0.0,  52 
+2.7,  52 
+0.0,  4 

04-01-1990,00:25:00,  52 
-24.5,  1 

+0.0,  1 
+1029.4,  52 
+89.6,104 
+283.0,  52 
+0.0,  52 
+2.9,  52 
+0.0,  4 

04-01-1990,00:30:00,  52 
“24.5,  6 

+0.0,  1 
+1029.5,  52 
+89.1,104 
+282.6,  52 
+0.0,  52 
+3.1,  52 
+0.0,  4 
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